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ACTUALIDAD. Nuestra sección no falta 
este mes, aunque los calores lian 
aletargado un poco d mercado 

INTELIGENCIA ARTIFICIAL. Con este 
artículo queremos acércanos a un 
problema de candente actualidad. En 
futuros números llegaremos a 
realizaciones más prácticas 

LAPIZ OPTICO dk’TRONTCS 

JUEGOS. Match Point. ShadowFire 

BINGO. Analizamos a fondo un 
programa. Para poder jugar y mej orar las 
técnicas de programación 

tienen un montaje para sus vacaciones: con 
él se puede hacer casi de todo 

LENGUAJE MAQUINA. Comenzamos 
una serie desde el nivel más básico, 
aunque pronto entraremos en materia 
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MASTERFILE, una de las bases de datos 
más completas para Spectrum 

GUSANEZ 

PROGRAMAS. Un juego difícil y 
entretenido, con Gusánez de protagonista. 
También un programa para calcular la 
factorial con todas sus cifras, y un monitor 
de código máquina 

GUSANEZ 
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Poco „ poco se va » ha escrito 

p?ro todavía no tos Artificial. Con este tema 
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■MTEUGENCIA 

ARTIFICIAL 


L a inteligencia artificial tiene 
como materia de estudio al¬ 
gunas de las más inquietan- 
■^■tes preguntas que pueden 
plantearse: ¿Qué hace nues¬ 
tra mente cuando pensamos, senti¬ 
mos, vemos o comprendemos? ¿Es 
posible averiguar realmente cómo 
funciona el cerebro? Estas pregun¬ 
tas se repiten desde hace miles de 
años sin obtener respuesta. 

Sin embargo, quienes investigan 
estos temas disponen ahora de una 


Clave para 
entender el 

pensamiento] 


nueva herramienta: el ordenador. 
Cualquiera que los utilice puede 
atestiguar que a menudo dan más 1 
problemas de los que solucionan. 


pero en el estudio de la mente y el 
pensamiento constituyen un banco 
de pruebas idóneo, 

Las teorías sobre el pensamiento 
frecuentemente toman la forma de 
descripción de un proceso. Por 
ejemplo, una posible explicación 
al proceso de elaboración de res¬ 
puestas a preguntas seria: en pri¬ 
mer lugar, se transforma la pre¬ 
gunta en una representación inter¬ 
na. Esta se emplea como un índice 
que busca la zona de memoria ade- 


















cuada. Su contenido se traduce al 
formato necesario para una res¬ 
puesta y por último, se generan las 
palabras para comunicarla. 

Las teorías de procesos parecen 
un buena manera de describir lo 
que sucede en el interior del cere¬ 
bro, pero realmente no aclaran 
gran cosa. ¿Cómo se organiza la 
memoria?, ¿puede llegar a saturar¬ 
se?, ¿cómo se localiza un determi¬ 
nado suceso en la memoria? Un 
investigador que intentase crear un 
programa para responder pregun¬ 
tas tendría que enfrentarse a estos 
problemas y a otros muchos. La 
programación nos fuerza a ser ex¬ 
plícitos y esta es la mejor manera 
de confrontar las teorías con la rea¬ 
lidad. 

No hace mucho, los investigado¬ 
res de la inteligencia artificial en¬ 
focaban su actividad sobre lo que 
consideraban manifestaciones de 
comportamiento altamente inteli¬ 
gente: jugar al ajedrez, demostrar 
teoremas matemáticos, etc. Mu¬ 
chos encontraron potentes técni¬ 
cas de programación para acome¬ 
ter, esas tareas «inteligentes». Pero 
también descubrieron que los pro¬ 
cedimientos usados por las perso¬ 
nas eran muy diferentes. Actual¬ 
mente concentran sus energías en 
la investigación de trabajos que la 
mayoría consideramos triviales: 
utilización del lenguaje, aprendi¬ 
zaje partiendo de las experiencias 


pasadas y lo que llamamos «senti¬ 
do común». 

El lenguaje 

Se comenzó con intentos de es¬ 
cribir programas que manejaran de 
un modo práctico el inglés (y otros 
idiomas naturales). Se pretendía 
que pudieran entender el lenguaje 
escrito lo suficientemente bien 
como para hacer resúmenes, tra¬ 
ducir a otros idiomas o contestar 
preguntas sobre textos analizados. 
Pero los investigadores se encon¬ 
traron de inmediato con una difi¬ 
cultad adicional: las personas en¬ 
tienden normalmente más de una 
frase que su estricto contenido lé¬ 
xico. Por ejemplo, casi todos esta¬ 
rían de acuerdo en que la frase 
«Pepe se compró un coche nuevo» 
contiene una referencia a dinero, 
aunque esta palabra no aparezca. 
Cualquier programa que compren¬ 
da la frase debe responder «Sí» a la 
pregunta «¿Se gastó dinero Pepe?». 

¿Cómo puede saber esto un pro¬ 
grama? Una primera aproxima¬ 
ción sería asociar «dinero» a 
«comprar», declarando que com¬ 
prar significa «dar dinero a cambio 
de». Este método emplea los signi¬ 
ficados de varias palabras de la fra¬ 
se para construir una representa¬ 
ción del significado de toda la ex¬ 
presión. Más o menos es un buen 
sistema, pero tiene algunos incon¬ 


venientes. Las palabras son fre¬ 
cuentemente ambiguas y las de¬ 
ducciones que se pueden hacer so¬ 
bre su sentido fácilmente pueden 
ser equívocas. La ambigüedad está 
tan generalizada que cualquier 
programa que trabaje con lengua¬ 
jes naturales debe tener poderosos 
métodos para evitarlas. 

Otro problema habitual es que 
los contenidos «entre líneas» no se 
deben a ninguna palabra en parti¬ 
cular. Por ejemplo, en la siguiente 
historia: «Pepe fue a un restauran¬ 
te y pidió un sandwich. El camare¬ 
ro se lo sirvió rápidamente. En 
agradecimiento le dio una buena 
propi na». Es obvio que Pepe se co¬ 
mió el sandwich y lo pagó, pero es- 
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tas acciones no se desprenden de 
ninguna palabra de la historia. 
¿Podría deducirlas un programa de 
ordenador? Para ello debería saber 
lo que ocurre en los restaurantes. 
Una persona también podría afir¬ 
mar que probablemente Pepe se 
sentó a la mesa, miró la carta, un 
cocinero hizo el sandwich, etc. El 
programa necesita poder rellenar 
los «huecos» no mencionados en el 
texto. 

Hay una solución para ambos 
problemas: que el programa gene¬ 
re constantemente previsiones o 
expectativas sobre lo que ocurrirá 
inmediatamente después. Las per¬ 
sonas raramente advierten la am¬ 
bigüedad al hablar, porque el sig¬ 
nificado exacto queda aclarado por 
el contexto. Un programa que re¬ 
solviese la ambigüedad tendría que 
construirse un contexto. En otras 
palabras, debería presuponer lo 
que puede ocurrir basándose en lo 



sucedido previamente y en lo que 
ya conozca sobre este tipo de situa¬ 
ciones. 

Estas expectativas o previsiones 
surgen generalmente en bloques y 
ayudan también a tapar los «hue¬ 
cos» de los que hablábamos ante¬ 
riormente. En una conversación 
sobre un restaurante se hace refe¬ 
rencia a una variedad de objetos, 
situaciones y personajes: el cliente 
observará la carta, pedirá algo al 
camarero, esperará un rato hasta 
que le sirvan, comerá, pagará la 
nota, dejará una propina y se mar¬ 
chará, Es obvio en este ejemplo 
que los bloques de expectativas 
pueden ordenarse temporalmente. 
Cuando una de ellas se cumple, el 
programa puede deducir que la an¬ 
terior probablemente también lo 
hizo. Del mismo modo, las perso¬ 
nas saben la secuencia en que se 
desarrollan las acciones habituales 
y utilizan ese conocimiento para 
generar expectativas. No hay for¬ 
ma de entender el lenguaje sin co¬ 
nocer algo del lema que se discute. 

Para realizar programas con los 
que verificar estas ideas habrá que 
imaginar qué tipo de expectativas 
existen y cómo van a usarse. Luego 
habrá que decidir la forma en que 
las manejará el programa. En cier¬ 
to modo, todos los analizadores 
sintácticos de los lenguajes natura¬ 
les usan las expectativas. La dife¬ 
rencia entre un analizador tradi¬ 
cional, estrictamente sintáctico, y 
un analizador más conceptual ra¬ 
dica en la procedencia de sus ex¬ 
pectativas. El primero utiliza sólo 
conocimientos gramaticales, 
mientras el segundo incorpora 
además información de otras fuen¬ 
tes. El analizador tradicional ve la 
sintaxis como proceso preliminar 
para otros análisis. El conceptual 
ia ve únicamente como una de las 
muchas fuentes de información 
que utiliza simultáneamente para 
comprender textos. 

Muchas de las expectativas «de 
bajo nivel» proceden del vocabula¬ 
rio utilizado para expresar un sig¬ 
nificado. Existen programas que 
usan la dependencia conceptual 
para representar significados. En 
su forma básica soportan una ac¬ 
ción, un sujeto, un objeto y un 
componente direccional (desde o 


hacia). Por ejemplo, la acción «co¬ 
mer» requiere que el objeto sea co¬ 
mestible y que el sujeto esté vivo. 
Cuando en un texto aparece una 
palabra que implica comer, se 
crean expectativas sobre un objeto 
comestible (generalmente se en¬ 
cuentra tras la palabra «comer») y 
un sujeto con vida (normalmente 
precediéndola). Se advierte que las 
expectativas generadas son tanto 
semánticas (presuponen el signifi¬ 
cado de la palabra) como sintácti¬ 
cas (presuponen dónde debe en¬ 
contrarse la palabra). Por supues¬ 
to, incluso las acciones de depen¬ 
dencia conceptual son susceptibles 
de ambigüedad. Un modo de evi¬ 
tarla sería crear expectativas refe- 


Un programa inteligente 
debe comprender los 
sobreentendidos de 
nuestro lenguaje 


rentes a los dos significados posi¬ 
bles y escoger la acción cuyas pre¬ 
visiones se cumplan en las restan¬ 
tes palabras del texto. En ese ins¬ 
tante, el programa desactivaría las 
expectativas no satisfechas. 

Hay otros modos de eliminar la 
ambigüedad. Los esquemas de ex¬ 
pectativas más complejos pueden 
proporcionar mejor información. 
La historia del restaurante conte¬ 
nía una expresión ambigua: «El 
camarero le sirvió rápidamente. 
En agradecimiento le dio una bue¬ 
na propina». El pronombre «le» 
no se refiere al antecedente más re¬ 
ciente, el camarero, sino a otro 
más remoto: Pepe. La única posi¬ 
bilidad de aclarar el significado de 
este pronombre en la frase es por la 
previsión de que los clientes dejan 
propina a los dependientes. Puede 
intentarse asociar esta información 
con el significado apropiado de 
«propina». Pepe puede actuar 


como cliente en este episodio, pero 
en cualquier otra situación podría 
hacer el papel de dependiente. Las 
presuposiciones cliente/depen¬ 
diente/propina y la identificación 
de Pepe como diente surgiría de 
un bloque de expectativas sobre 
restaurantes. 

Cuando los bloques de expecta¬ 
tivas comenzaron a utilizarse en 
los programas, se descubrieron al¬ 
gunos interesantes detalles sobre 
su funcionamiento. Una historia 
puede referirse a muchos bloques y 
éstos pueden relacionarse entre sí 
de múltiples maneras. Pueden 
ocurrir a la vez (por ejemplo, co¬ 
mer y viajar en avión) o ser incom¬ 
patibles (conducir un coche e ir en 
avión). También pueden decidir el 
sentido de una determinada pala¬ 
bra asociada a ellos, lo que no re¬ 
suelve la ambigüedad pero consti¬ 
tuye una valiosa ayuda. 

Los bloques de expectativas 
también dan problemas. ¿Cómo 
puede un programa imaginarse 
qué bloque utilizar en un momen¬ 
to determinado? Lógicamente, 
añadiendo condiciones de activa¬ 
ción que especifiquen en qué situa¬ 
ciones debe seleccionarse cada uno 
de ellos. Los primeros programas 
simplemente buscaban en cada 
bloque para comprobar si se ha¬ 
bían encontrado las condiciones. 
Pero al aumentar el número de 
bloques por programa hubo que 
perfeccionar su organización. Se 
necesita un método para encontrar 
el adecuado sin tener que mirarlos 
todos. 

Otro problema es seleccionar lo 
que debe figurar en cada bloque. 
Comer en casa tiene mucho en co¬ 
mún con comer en un restaurante. 
¿Las expectativas de ambas accio¬ 
nes deben ir en el mismo bloque o 
en dos diferentes? ¿Que se haría 
con la información relativa a los 
distintos tipos de restaurantes? 
Hace falta una teoría sobre cómo 
organizar y encontrar los grupos 
de expectativas. 

En resumen, lo que empezó 
como estudio del lenguaje se ha 
convertido en una investigación 
sobre el conocimiento y la manera 
en que éste se organiza. En otras 
palabras, un estudio de la memo¬ 
ria. 









E L lápiz óptico DK’TRO- 
NICS, distribuido en Espa- 
ña por ABC Analog, consta, 
además del lápiz en sí y su 
correspondiente interface, 
de un programa de dibujo y un ma¬ 
nual de instrucciones, este último 
bastante completo pero escrito 
(¡cómo no!) en su lengua nativa, es 
decir en inglés. Comienza este ma¬ 
nual explicando muy someramen¬ 
te lo que es un lápiz óptico: un dis¬ 
positivo que detecta la luz emitida 
por el televisor y envía una señal al 
ordenador, el cual podrá, si dispo¬ 
ne del software adecuado, localizar 


el punto de la pantalla sobre el que 
está situado el lápiz. 

Para poder utilizar este periféri¬ 
co deberemos, antes de nada, co¬ 
nectar la clavija del lápiz a la en¬ 
trada correspondiente en el inter¬ 
face y éste al bus trasero de Spec- 
trum. Una vez hecho esto podre¬ 
mos enchufar el ordenador y car¬ 
gar el programa que se nos sumi¬ 
nistra tecleando LOAD 

Ajustando el lápiz a 
nuestra TV 

Si todo ha funcionado bien apa¬ 
recerá en pantalla un menú con 


Al 

tres alternativas posibles: si pulsa¬ 
mos la tecla «c» saltaremos a la su¬ 
brutina que ajusta el código má¬ 
quina a nuestra TV. Para ello de¬ 
beremos situar el lápiz sobre el 
cuadro blanco de la izquierda. 
Aparecerá una flecha a su derecha 
que deberemos subir (tecla «1») o 
bajar (tecla «q»} para alinearla con 
la cruz del cuadro. Cuando lo con¬ 
sigamos aparecerá el mensaje «Co¬ 
rred setting», entonces estaremos 
en condiciones de salvar el código 
máquina ajustado, pulsando una 
tecla cualquiera y después la «s». 
Esto lo podemos hacer en otra cin- 






será «en frío», es decir inicializan- 
do variables y borrando las panta¬ 
llas archivadas (caso de que hubie¬ 
ra alguna). 

Cuando lo hagamos aparecerán 
en la parte baja de la pantalla las 
iniciales de cada uno de los co¬ 
mandos disponibles. Para seleccio¬ 
narlos deberemos situar el lápiz 
sobre el cuadro blanco que hay 
junto a cada uno de ellos y pulsar 
una tecla cualquiera. En la zona 
superior veremos los dos cursores 
que se utilizan para marcar los 
puntos de la pantalla sobre la que 
trabajarán los citados comandos. 
El cursor principal está representa¬ 
do con un «x» y el secundario con 
las líneas vertical y horizontal que 
cruzan la pantalla. Para cambiar la 
posición de este último situaremos 
el lápiz en el nuevo emplazamien¬ 
to y pulsaremos una tecla cual¬ 
quiera; para el principal se utiliza 
el comando Move como explica¬ 
mos más adelante. 


to es aceptable, cómodo y fácil de 
utilizar. Las posibles opciones son 
las siguientes: 

Erase 

Este comando está pensado para 
borrar la última figura que haya¬ 
mos dibujado; siempre que ésta 
haya sido una circunferencia, una 
recta, un rectángulo o un arco de 
circunferencia (en realidad lo que 
hace es repetir el último comando 
en OVER 1). Desgraciadamente 
no arreglará nada si nos hemos 
equivocado al hacer FILL, y si la 
figura quedaba sobre algo dibujado 
ya anteriormente esa zona será 
también borrada. Hay que poner 
especial atención en no mover tos 
cursores antes de ejecutar esta op¬ 
ción, pues entonces dibujaría la fi¬ 
gura en distinto sitio del que estaba 
la anterior, con lo que el problema 
será doble; esto, con un poco de 
habilidad, puede ser utilizado para 
dibujar en OVER 1, función de la 
que carece este programa. 


SACALE 

PUNTA 

USPECTRUM 


ta tras haber salvado el programa 
BASIC, para lo cual podremos ha¬ 
cer BREAK, SAVE «lápiz» y 
RUN para volver al menú. 

Programa de dibujo 


Continuamos el estudio de ios lápices ópticos disponibles 
en el mercado español. Este mes nos llega, del otro lado del 
Canal de la Mancha, otro de estos periféricos, que ofrece el 
aliciente de poder ser utilizado en nuestros propios 
programas. 


Aparte de la opción de calibrado, 
tenemos en el primer menú otras 
dos opciones que nos permiten ac¬ 
ceder al menú principal de progra¬ 
ma de dibujo: si pulsamos la tecla 
«k» lo haremos respetando las 
pantallas que tengamos almacena¬ 
das (ver comando Keep) y si pulsa¬ 
mos cualquier otra tecla la entrada 


Comandos y opciones Draw 


A pesar de que este programa 
dispone de 16 comandos de dibujo 
harían falta algunos más que lo 
completarán para poder hablar de 
un paquete serio con el que pudié¬ 
ramos realizar gráficos algo com¬ 
plejos. De todas formas el conjun- 


Dibuja una línea recta entre los 
dos cursores. Para ejecutar este co¬ 
mando deberemos, una vez que 
hayamos definido la posición que 
queremos, poner el lápiz sobre el 
cuadrado correspondiente a la «D» 
y pulsar una teda. 









Move 

Este comando desplaza el cursor 
principal al lugar que ocupa el se¬ 
cundario, quedando, por lo tanto, 
ambos en el mismo punto. Para 
mover de sitio el cursor secundario 
basta apuntar el lápiz al punto que 
deseemos y pulsar una tecla. 

Circle 

Traza una circunferencia con 
centro en el cursor principal y 
cuyo radio será igual a la distancia 
entre éste y el cursor secundario. 
En caso de que la circunferencia 
no coja en la pantalla dará el men¬ 
saje de error «Radius of circle is 
too big, re-position pen and try 
again», algo así como «El radio de 
la circunferencia es demasiado 
grande, vuelve a situar el lápiz y 
prueba de nuevo». 

Rectangle 

Dibuja un rectángulo cuyos vér¬ 
tices serán los dos cursores. 

Fill 

Opción de rellenado, típica en 
todo buen programa de dibujo. En 
este caso la rutina que realiza el 


El Interface resulta más 
voluminoso que en otros 
lápices, pero a cambio 
deja libre la toma EAR. 


trabajo no está del todo consegui¬ 
da. Aparte de ser lenta, no siempre 
admitirá que tomemos como lími¬ 
tes de la superficie a rellenar los 
bordes de la pantalla; quedándose 
«colgado», en caso de que lo haga¬ 
mos. durante bastante tiempo (al¬ 
rededor de media hora) y dando al 
final un Oui ofmemory. 

Para ejecutar este comando de¬ 
beremos señalar, con el cursor se¬ 
cundario, un punto de la superficie 
a rellenar y señalando al cuadrado 
de la letra «F» pulsar una tecla. 
Una vez hecho esto no podremos 
echamos atrás, por lo que convie¬ 
ne asegurarse antes de hacerlo de 
que la figura que pretendemos re¬ 


llenar no tiene ningún hueco por 
donde pueda escapar el «flujo» de 
tinta. 

Hand-draw 

Este comando nos da la posibili¬ 
dad de dibujar en la pantalla como 
si estuviéramos haciéndolo con un 
lápiz de los de madera y grafito (o 
casi). Para ello deberemos marcar 
con el lápiz el cuadro correspon¬ 
diente (el «H») tras lo que aparece¬ 
rá el mensaje «Press any key to 
start sketching», que en castellano 
es «Pulsa una tecla para comenzar 
a dibujar». Para dejarlo bastará 
con pulsar una tecla de nuevo. 

Border, Ink, Paper 

Estos tres comandos trabajan de 
forma similar. Definen el color del 
BORDER o los atributos en curso 
(salvo brillo y flash, inexplicable¬ 
mente ausentes en un programa de 
dibujo). Cuando marquemos con 
e! lápiz las casillas correspondien¬ 
tes aparecerá en la parte inferior de 
la pantalla una lira con los ocho 
colores posibles en el Spectrum. 
Sólo tendremos que señalar con el 
lápiz el que deseamos y pulsar una 
tecla. 

New screen 

La pantalla es borrada y redefi¬ 
nida con los atributos en curso, los 
cursores son colocados en el cen¬ 
tro. 


Tape 

Podemos utilizar este comando 
para salvar o cargar pantallas o 
desde casseie o microdrive. Cuan¬ 
do lo ejecutemos aparecerán en la 
parte inferior de la pantalla tres 
opciones: SAVE, LOAD y 

ABORT (para volver al menú). 
Una vez elijamos SAVE o LOAD 
aparecerán otras dos opciones: 
TAPE (cassette) y MICRODRIVE. 


Con respecto a otros 
lápices el Dk’Tronics 
ofrece la ventaja de poder 
ser usado en nuestros 
programas. 


Keep 

Este comando, que sólo puede 
ser utilizado en la versión de 48 K, 
salva el contenido de la pantalla en 
memoria. Podremos archivar de 
esta manera hasta cinco pantallas 
distintas que podrán ser recupera¬ 
das usando el comando que sigue. 

Recall 

Cuando lo ejecutemos se nos 
mostrarán los números de las pan¬ 
tallas que haya en memoria (caso 
de haber alguna) Junto a la opción 
CYCLE; si elegimos esta última to 
que hará es mostrarnos, a la veloci¬ 
dad que le indiquemos, todas las 
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TRUM 48 K 
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pantallas que en ese momento 
haya archivadas. 

Are 

Traza un arco de circunferencia; 
para ello deberemos definir tres 
puntos: los dos extremos serán in¬ 
dicados con los cursores, y otro 
punto del arco será tomado de la 
última posición del arco secunda¬ 
rio. En caso de que el arco resul¬ 
tante se salga de pantalla el progra¬ 
ma se interrumpirá con mensaje: 
«B: Out of screen». Para continuar 
deberemos hacer RUN, y pulsar la 
tecla «K» para que las pantallas 
que hayamos dibujado sean respe¬ 
tadas, 

Letters 

Este comando nos permite inser¬ 
tar textos a partir del punto marca¬ 
do por el cursor secundario. Cuan¬ 
do lo ejecutemos nos pedirá el tex¬ 
to que queremos sea insertado; de¬ 
beremos teclearlo con normalidad 
y pulsar ENTER. 

Utilizando el lápiz en 
nuestros programas 

La mejor de las opciones que 
nos ofrece este periférico es la po¬ 
sibilidad de utilizarlo en nuestros 
propios programas. Para ello apro¬ 
vecháremos la rutina encargada de 
localizar las cordenadas del punto 


donde el lápiz está situado. Dicha 
rutina deberemos salvarla en cinta 
con SAVE «nombre» CODE 

62564.1706 para la versión de 48 
K y SAVE «nombre» CODE 

29796.1706 para la de 16 K. Para 
cargarla en nuestros programas ha¬ 
remos CLEAR 62563 {29795 para 
16 K): LOAD «nombre» CODE. 
Una vez que lo tengamos en me¬ 
moria podremos localizar el lugar 


El programa de dibujo es 
sencillo, siendo el único 
lápiz disponible para 
16 K. 


en donde está situado el lápiz de la 
siguiente forma: LET coords = 
USR 62564 (29796 para 16 K): 
LET y = INT (coords/256): LET x 
= coords-256*y. 

Cuando ejecutemos esto queda¬ 
rán las coordenadas en las varia¬ 
bles x (horizontal) e y (vertical); a 
partir de ahí son nuestro ingenio e 
imaginación quienes tienen que 
decidir qué aplicación queremos 
darle a esta interesante posibili¬ 
dad. Si nos conformamos con con¬ 
seguir el número de línea sólo ten¬ 
dremos que hacer lo siguiente: 
LET línea = USR 63109. 

El programa adjunto es un ejem¬ 
plo de cómo podemos confeccio¬ 


nar un menú utilizando este lápiz 
óptico. Antes de ejecutarlo debere¬ 
mos haber salvado en cinta la ruti¬ 
na de localización de coordenadas 
de la forma anteriormente expues¬ 
ta, y poner el cassette en condicio¬ 
nes para cargarla cuando el pro¬ 
grama nos lo pide. El programa 
«testea» la variable de sistema P- 
RAMT para averiguar si nuestro 
Spectrum es de 16 o de 48 K, por 
lo que debe funcionar a la perfec¬ 
ción en ambos casos. 

No es nada difícil, como hemos 
visto, utilizar este periférico en 
nuestros programas o incuso adap¬ 
tar programas comerciales para 
que admitan esta posibilidad. Es¬ 
peramos nos comuniquéis vuestras 
experiencias en este campo en el 
que todo es decidirse. Esperamos 
igualmente que hayan quedado 
claras las características y modo de 
empleo de este lápiz óptico y que 
esto os ayude a saber cuál es el que 
más se ajusta a vuestras necesida¬ 
des. En el caso de que las aproxi¬ 
madamente 7.000 pesetas por las 
que se comercializa os parezca de¬ 
masiado, y si os consideráis unos 
perfectos «manitas», aún podéis 
acudir al montaje del número seis 
de nuestra revista y construiros vo¬ 
sotros mismos un útil de dibujo 
que facilite el manejo del Spec¬ 
trum, 

Luis Gala 


5 REM Menú be demostración 
para Lápiz DV’tronies 16 y 48K 

10 RRINT "Carga rutina localiz 
ación" 

20 no SUB 200 
30 CLEAR K-2972 
40 LOAD ""CODE 
45 EO SUB 200 
50 CLS 

60 PRINT "MENU-DEMQ:Pon lápiz 
sobre opción y pulsa una tecla" 
70 FOR n=0 TO 9 
BO PRINT : PRINT "Opción " ;n}" 
"5 FLASH " 

90 NEXT n 
95 PAUSE O 

100 LET linea=USR (K-2426) 
llO POR n**3 TO 22 STEF' 2 
120 IF lineado THEN CLS ! PRIN 
T "Has elegido la opcion tn-3i 
/ 2 ; BEEP *5,20; 60 TO 50 
130 NGXT n 
140 GG TO 93 
145 

190 ftEii Sübrutín-a calculo 

ultimo octeto RAM física 

200 LET K-PEEK 23732+256*PEBí 2 
3733: RETURN s REM 16 O 4SK 














Complete su colección de 

ledospectran 

A continuación te resumimos el contenido de los ejemplares 
aparecidos hasta ahora. 


Num. 1 *250 pts. Num, 2*250 pll. 

Cómo usar el microdrive/Progra- Gráficos profesipnales/Desplaza- 
mación Baslc/Ampliacíón Basicare/ miento pixel a pixel/Utilización de 
Rutina despertador/Vanabtes del ais- rutmas/Construcción del interface 
tema/Entra da datos mediante másca- Centronics/Pro gramas de utilidad pa- 
ras/Proteccíón del software/Síntoni- ra mlcrodrl ve/Rutina reset en código 
ce su Spectrum/Programas. méquina/Análisis del editor de textos 

Tasword/Interfaces para impresoras/ 

Programas. 

Núm. 3*250 pl». 

Novedades sonimag WAmpliandoet Num. 4-250 pU. 

Basic/Programas para ordenar pro- De Presión: programador/Consola 

gramas/Gráficos con el VU-3D/Len- para el Spectrum/Comparación códi- 

guaje Forth/Archivos en microdrive/ 90 rr ^^ u i na ' Ba3 ^ c ^ Aná,i sis programa 

Programación de un interface de im- contaíbílídad /Calendario/Pascal/Pro- 

presora/Prog ramas. gramas. 

Num. 6*250 pt«. 

Núm> 5 *250 pts. Representación de funciones/Todos 

Floppys para Spectrum/Diseflo asis- los caminos conducen a laRQM/Jue- 

tido por ordenador/64 Caracteres por gos/Pascal/Gonstrucción de un lápiz 

línea/Juego de la vida/Pascal/Así ha- Óptico/Programas de gestión. Ei SITI/ 

cemos las portadas/tontrol de ©va- Logo; tortugas para todos/lnterrup- 

tuaciones/Programas. ciones del Z BO/Programas. 

DISPONEMOS DE TAPAS ESPECIALES PARA 





{cada tapa es para 6 ejemplares) 


'•‘^ectrun 


SUS EJEMPLARES DE 

fedospectrun 

SIN NECESIDAD DE ENCUADERNACION 


PRECIO 


Úñ¡ÓA° 


6 q 0 p¡ 2 *; 


Para hacer su pedido, rellene este cupón HOY MISMO 
v _ y encelo a: 

lodosDeccrini Bm ° ^urmo. 377 

^ Tel. 733 96 62 - 28020 MADRID 


Ruego me envien los siguientes ejemplares atrasados de TODQS- 


PÉCTRUM ....al precio de 250 pts. 

Por favor envíenme .. tapas para la encuadernación de mis 


ejemplares de TQDOSPECTRUM, al precio de 600 pts. más gastos de envío. 
El importe lo abonaré 

□ POR CHEQUE O CONTRA REEMBOLSO □ CON MI TARJETA DE 
CREDITO O AMERICAN EXPRESS □ VISA □ INTERBANK 

Número da mi tarjeta: | | | | | | | | | i i | fTT l 1 í TT T [7 1111 

Fecha de caducidad... Firma 

NOMBRE .......+ 

DIRECCION .. . ... 

CIUDAD .... . C P... 

PROVINCIA 





















SHADOW FIRE 


Erbe 

Spectrum 48 K 
2.000 pías. 


El embajador Krixix ha sido captu¬ 
rado por el malvado Zoffi Con él, han 
sido capturados los planos de Shadow- 
fire, una nave espacial de nuevo tipo. 
Si Zofí capturase esos planos* el Impe¬ 
rio caería en sus manos en poco tiem¬ 
po. En pocas horas, los esbirros de ZoO 
descubrirán los planos, ocultos en un 
microfilm en el espina dorsal de Kri¬ 
xix, Nuestra misión es evitarlo. 

Para ello, el embajador nos ha nom¬ 
brado jefes del equipo Enigma. Este 
equipo, formado por seis miembros, 
deberá penetraren ZolTV. 


Control: Teclado, joystick. 

Jugadores: Uno. 

Gráficos: Muy buenos, con 
iconos que simbolizan las op¬ 
ciones en los menús. 

Sonido: Unos pitidos que nos 
avisan cuando somos atacados. 
No es su fuerte. 

Nivel de dificultad: Difícil; no 
dispone de ninguna opción para 
dosificar la dificultad. 

Originalidad: Primera aven¬ 
tura con entrada mediante me- 
nús con selección gráfica. 

Conclusión: Pese a la dificul¬ 
tad de localizar al embajador en 
límite de tiempo que se nos da, 
el juego resulta atractivo. La 
mayor prueba es que apuremos 
ese tiempo en cada partida, 






Stík y thorík 
están bajo 
ataque de dos 
enemigos. Tras 
ordenar a Thorik 
que pase ai 
ataque, le 
indicamos a Sitk 
que te ayud&¿ 




Nuestro equipo está compuesto por 
tropas de élite, como Zark, humano o 
Sylk, insectoide. Ambos muestran 
gran resistencia y fortaleza física. Sev- 
rina, humana y peligrosa delincuente, 
es experta en abrir cerraduras. Resulta 
rápida, aunque poco resistente. Torik, 
aviano y compañero de Sevrina, es 
también rápido. 

Los dos restantes miembros del 
equipo son dos androides; Manto, es¬ 
pecializado en teletransporte, y Maul, 
diseñado para el transporte de armas. 
Ambos resultan lentos. Los personajes 
pueden ir armados, recogiendo las ar¬ 
mas en nuestra nave de ataque. 

Para cumplir la misión, debemos re¬ 
correr la nave hasta encontrar al emba¬ 
jador; y sacarlo de la ZofTV. Los movi¬ 


mientos y las diversas acciones se rea¬ 
lizan por selección en un menú, estan¬ 
do indicadas las diversas opciones por 
«iconos». Si posiclonamos el joystick 
sobre una de las opciones y pulsamos 
el botón de disparo, queda selecciona¬ 
da esa opción. 

La estructura de menús es completa, 
comenzando por un menú para cada 
personaje, que incluye tres sub menús; 
el de ataque* el de movimiento y ei de 
recogida de objetos. La originalidad de 
una aventura sin barreras idiomáticas 
es una de las características más intere¬ 
santes de este juego. Un buen diseño 
gráfico y una velocidad de respuesta 
buena complementan este juego, que 
hará pasar buenos ratos a los amantes 
de la aventura. 
















































MATCH POINT 


I m es trónica 
Spectrum 48 K 
2.100 ptas. 


Uno de los primeros juegos de inspi¬ 
ración deportiva que aparecieron para 
el Spectrum y la realización definitiva 
del tenis en un ordenador. Aunque se 
trata de un programa relativamente 
antiguo, el ambiente relajado de las va¬ 
caciones de verano es perfecto para un 
juego como éste, donde la concentra¬ 
ción y rapidez de reflejos resultan im¬ 
prescindibles. 

El juego admite manejo desde tecla¬ 


Control: Teclado, joystick. 

Jugadores: Uno o dos. 

Gráficos: La presentación 3D 
del campo de tenis es muy bue¬ 
na. El movimiento es excelente. 
La animación de los jugadores 
es también excelente; sólo los 
recogepe Iotas dejan algo que de¬ 
sear. 

Sonido: No tiene. 

Nivel de dificultad: Tres nive¬ 
les: cuartos de final, semifinal y 
final. La longitud del partido 
puede ser de uno, tres o cinco 
sets. 

Originalidad: Aunque existen 
muchos programas deportivos, 
muy pocos de ellos incluyen una 
simulación tan completa. La 
posibilidad de dos jugadores es 
algo que también se echa de me¬ 
nos en muchos juegos. 

Conclusión: Los programado- 
res del Psion han llevado, como 
otras veces, las posibilidades de 
la máquina al limite. Un progra¬ 
ma adjetivo, donde el joystick 
resulta indispensable si quere¬ 
mos plantarle cara al ordenador. 


do o joystick aunque resulta necesario 
un Inter face que admita dos palancas 
si queremos competir en igualdad de 
condiciones contra un oponente hu¬ 
mano, Existen tres niveles de dificul¬ 
tad que se distinguen por la velocidad 
de la hola y los efectos que se pueden 
lograr. Se puede dosificar también la 
duración del partido: un set o partidos 
al mejor de tres o cinco sets. 

Las reglas de! tenis han sido respela¬ 
das hasta el tie-break que consiste en 
que, si en un set se llega a empate de 
seis juegos, la victoria se la apunta el 
jugador que llegue a siete tantos. 


La representación gráfica es correc¬ 
ta, dentro de las posibilidades del 
Spectrum. Su principal problema es 
que se larda en acostumbrarse a la 
perspectiva, rallando inicialmente mu¬ 
chos golpes por no saber dónde está 
exactamente la bola. Incluso cuando 
ya estamos acostumbrados, el juego re¬ 
sulta difícil, necesitando mucha con¬ 
centración para ganarle a la máquina 
incluso al nivel más sencillo. Un juego 
muy adecuado para las vacaciones, 
siempre que tengamos cerca el mar o la 
piscina para bañarnos después de las 
agotadoras partidas. 



potente es el 
primer requisito 
pare ganar la 
partida. 



Las subidas a la 
red y el juego 
agresivo son 
elementos 
imprescindibles 
de una victoria. 
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BINGO 


El programa que os 
presentamos a continuación 
sortea los números de un 
bingo después de haber 
preparado los cartones para 
cada jugador. Para que no 
todo sea teclear y jugar, el 
programa es analizado a 
fondo. Esperamos que los 
comentarios acerca de su 
estructura os resulten útiles 
en vuestros trabajos de 
programación. 



E N el juego del BINGO hay 
una persona encargada de 
«cantar» los números entre 
1 y 99 de forma totalmente 
aleatoria y cada jugador tie¬ 
ne un cartón con un conjunto de¬ 
terminado de números (unos 15). 
Los cartones de los jugadores con¬ 
tienen números diferentes. E! ga¬ 
nador es aquel cuyos números han 
sido cantados en su totalidad. 

El programa admite hasta cuatro 
jugadores y comprueba el cartón 
ganador. 


Procedimiento 

Los módulos de programación 
están dispuestos de la forma si¬ 
guiente: 

1. Prepara el juego. 

2. El cuerpo principal del jue¬ 
go. 


3. Resultado final. 

Las distintas subrutinas que hay 
dentro del programa son: 

1.1. Instrucciones prelimina¬ 
res. 

1.2. Prepara los números del 
bombo. 

1.3. Prepara los cartones de los 
jugadores. 

1.4. Imprime los números de 
cada uno. 

2.1. Visualiza los números 
cantados. 

2.2. Muestra (mediante una in¬ 
terrupción) el cartón de los jugado¬ 
res. 

3.1. Lista de los números del 
cartón. 

3.2. Muestra los números can¬ 
tados. 

3.3. Comprueba el cartón ga¬ 
nador. 

1.1. Estas son las instrucciones 
que se necesitan al comenzar el 


juego. En cada paso del programa 
es fundamental indicar al jugador 
la forma de proceder. 

1.2. La preparación del bombo 
requiere una lista de números alea¬ 
torios del 1 al 99 (sin repetición) 
que se almacenarán en un vector 
que será A(99). 

1.3. Los cartones de los juga¬ 
dores son de 4 tipos con 15 núme¬ 
ros enteros y totalmente aleatorios, 
desde el 1 al 99 (números distin¬ 
tos). Cada cartón deberá tener una 
lista de números y cada lista ha de 
ser-distinta. Estos se almacenarán 
en los vectores Q(15), R( 15), S( 15) 
yT(15). 

1.4. Visualiza el cartón del ju¬ 
gador y le da tiempo a que lo ano¬ 
te, 

2.1. Muestra, a gran tamaño, 
los números que se van cantando. 

2.2. Interrumpe el juego para 
comprobar aciertos. 



























































































































































3.1. Repite el punto 1.4, para 
que los jugadores comprueben sus 
números. 

3.2. Los números cantados se 
colocan por orden en el vector 
P(99) y se visualizarán en la panta¬ 
lla. 

3.3. Se selecciona el cartón ga¬ 
nador y se comprueba. Los núme¬ 
ros se almacenarán en el vector 
V(15). Estos se comparan con los 
que ya han salido, que están alma- 
cemados en P(99), y de esa forma 
se comprueba que esté todo co¬ 
rrecto. 


Descripción del algoritmo 

1.1. Esta sección muestra las 
instrucciones mínimas para jugar. 
A lo mejor desea más instruccio- 


? 


INfClALIZAR 

VECTOR 

A(99) 


N = l 



T 

_L, 

HACER X = 
N9ALEATORO 
I- 99 



5 REM “SINGO" 

10 REM ***************** 

1.1 * INSTRUCCIONES * 

•*** ***************** 

20 PRINT TAB 10s"BINGO";TAB 10 

I «***#*" 

30 PRINT *"VDY A GENERAR 4 CAR 

TONES DE" 

40 PRINT "BINGO CON LAS LETRAS 
r Q', *R* „ ’S’ Y * T*." 

50 PRINT ’"SE COPIARA EN LA IM 
PESORA, SI LAHAY. DE LO CÜNTRARI 
O DEBERAS" 

60 PRINT."ANOTAR EL CARTON Y L 
A LETRA CORRESPONDIENTE DEL 

ELEGIDO." 

70 PRINT *"HABRA UN RETARDO AN 
TES DE EMPE- ZAR YA QUE ESTARE P 
REPARANDO LOSCARTONEB.” 

80 PRINT ' * ' "PULSA UNA TECLA 
CUANDO ESTES PREPARADO." 

110 IF INKEY4="" THEN SO TO 11 
O 

120 CLS 
200 RANDOMIZE 

300 REM ********************* 

1.2 *PREPARANDO EL BOMBO* 
=== ********************* 

310 GO SUB 2500 


320 REM ********************* 

1.3 «PREPARANDO CARTONES* 

““*> í™ * 1 ^ ^ ^ ^ ^ ^ 

420 DIM Q < 15) 

430 DIM R(15) 

440 DIM S(15) 

450 D.IM Tí 15) 

460 DIM P<99> 

470 FQR U*1 TO 4 

480 FQR J-l TO 15 

490 LET X“INT <99*RND>+1 

500 FOR 1=1 TO J-l 

510 IF X—P(I) THEN GO TO 490 

520 NEXT I 

530 LET P(J)=X 

540 NEXT. J 

550 LET Y=15 

560 60 SUB 3000 

570 Gü SUB 3500 

580 NEXT U 

590 PRINT 

600 PRINT 

610 REM *********************** 

1.4 * MOSTRAR LOS NUMEROS * 

«”= *********************** 
620 GO SUB 1600 
630 REM ****************** 

* COPIAR NUMEROS * 

*SI HAY IMPRESORA* 
****************** 









































nes, para lo cual deberá alterar las 
líneas 10a 110 del programa. 

1.2. Prepara los números del 
bombo. Observar el diagrama de 
flujo. 

Esta rutina empieza en la línea 
120, limpiando la pantalla y está 
contenida dentro de la subrutina 
que prepara los números a cantar 
(líneas 2500 a 2590). Hay que te¬ 
ner en cuenta que puede ser una 
secuencia de una subrutina dentro 
de la parte principal del programa, 
ya que se ejecuta sólo una vez. 

1.3. Prepara los cartones del 
juego. Veamos el diagrama si¬ 
guiente. 

En el programa esta rutina em¬ 
pieza en la línea 320. Observar el 
vector P(99), que se utiliza en la 
subrutina sort y a su vez en la ruti¬ 
na de los números del cartón. 

Las líneas 480 a 540 seleccionan 
ios 15 números aleatorios. La su- 
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640 COPY 

650 PRINT r ’"PULSA UNA TECLA PA 
RA CONTINUAR." 

660 PAUSE O* 

670 CLS 

680 PRINT "SE VISUALIZARAN LOS 
NUMEROS UNO A UNO." 

690 PRINT 

700 PRINT "CUANDO COMPLETES EL 
ARTÜN, PULSAUNA TECLA CUANDO EL 
NUMERO ESTE EN LA PANTALLA." 

710 PRINT 

720 PRINT "PULSA UNA TECLA PARA 
CONTINUAR." 

730 IF INKEY*-"" THEN SO TD 73 

0 

735 CLS 

740 REh ******************** 

2.1 * NUMEROS CANTADOS * 

sss ******************** 

745 LET Z=1 
750 DIM B4<99,2> 

755 CLS 

760 PRINT "PULSA UNA TECLA CUAN 
DO TU CARTONESTE COMPLETO," 

770 FOR N=Z TO 99 
780 SO SUB 5000 
790 LET P (N> =A <N) 


795 PAUSE 200 

800 FOR F=1 TO 400 

805 IF INKEYtO* 1 " THEN GO TO 8 

30 

810 NEXT F 
815 LET Z = Z + 1 
820 NEXT N 
830 CLS 

840 FOR N=1 TQ 10 
B50 PRINT TAB N;"<*BINGO*><*BIN 
Gü*>" 

B60 NEXT N 

870 PRINT ,,"CHECK YOUR CARDS" 

380 REM ******************** 
♦MOSTRAR CARTON DE * 

2.2 * LOS JUGADORES * 

=== ******************** 

890 PAUSE 100 
900 CLS 
910 LET Y=Z 

920 PRINT "TUS NUMEROS FUERON" 
930 PRINT 

935 REM **************** 

♦LISTAR NUMEROS* 

3.1 * DEL CARTON * 

<=== **************** 

940 GO SUB 1600 










































































brutina 3000 a 3170 se encarga de 
intercalarlos. 

La subrutina 3500 a 3560 coloca 
los números en el vector adecuado. 

1.4. Esta subrutina (líneas 
1600 a 1650) visualiza los núme¬ 
ros en los cartones en forma de ta¬ 
bla. 

2.1. /2.2. Muestra los números 
cantados y se interrumpe si se ha 
pulsado una tecla. 

Esta rutina toma los números 
que se generan, los visualiza a 16 
veces su tamaño normal y lo alma¬ 
cena en P. La variable Z cuenta 
cuántos números han salido. Al Fi¬ 
nal de esta subrutina, los números 
cantados se almacenarán en la ca¬ 
dena P (que contendrá Z núme¬ 
ros). 

3.1. Repite el punto 1.4. 

3.2. Esta rutina (línea 960 a 
1070) llama a una pequela subruti¬ 
na en la línea 3000 que intercalará 


la lista P(Z) en orden numérico y 
los imprimirá en la pantalla. 

3.3. Esta rutina (líneas 4000 a 
4260) se divide en dos partes. 

(1) Selecciona el cartón gana¬ 
dor y prepara la lista de los núme¬ 
ros contenidos en ella para alma¬ 
cenarlos en la cadena V( 15) (líneas 
4000 a 4120). 

(2) Comprueba los números 
del cartón ganador. Es necesario 
buscar la lista ordenada P conte¬ 
niendo los Z números para compa¬ 
rarlos con la lista ordenada V con¬ 
teniendo 15 números. Si falta cual¬ 
quier número, el cartón estará in¬ 
completo. Si están todos los núme¬ 
ros se visualizará una felicitación. 

El método más rápido para bus¬ 
car los números es de la siguiente 
manera: 

Se busca por V(1) en la lista P 
hasta que se encuentra, por ejem¬ 
plo P( 12). A continuación, se bus- 
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950 REM ***************** 
♦MOSTRAR NUMEROS* 

3.2 * CANTADOS * 

960 PRINT "PULSA UNA TECLA PARA 
COMPROBAR LOS NUMEROS CANTADOS 

* 

970 PRINT "TARDARE UN PÜCD EN M 
EZCLARLOS." 

9B0 PAUSE O 
990 CLS 

ICIO GO SUB 3000 
1020 CLS 

1030 PRINT "NUMEROS CANTADOS" 
1040 PRINT 
1050 POR N=1 TO Z 
1060 PRINT P(N>;“ 

1070 NEXT N 
1000 PRINT 

1085 REM ****************** 
♦COMPROBAR CARTON* 

3.3 * GANADOR * 

=== ****************** 

.1090 GO.SUB 4000 
1100 LET Z=Z+1 

1110 PRINT * * "DESEAS CONTINUAR C 
ON EL JUEGO? (S/N)" 

1120 INPUT C* 


1130 IF C*="N" THEN STOP 
1140 1F C* *="S" THEN GO TO 75S 
1150 PRINT "POR FAVOR, INTRQDUCI 
F¡ ’S’ O 'N’, " 

1160 GO TO 1120 

1190 REM ******************** 

* FIN DEL PROGRAMA * 

1200 STOP 

15B0 REM ************** 

* 3UBRUTINAS * 

¡JU iL Ja- 1 JL r ^ tJCt Ja ^ aJa J. Jb 

^ T J T 1, ® T * 'T 1 * 

1590 

1600 REM *********************** 
♦SUBRUTINA PARA LISTAR* 
*LQS CARTONS DEL JUEGO* 

***************y*ity*t$j|t 

1610 PRINT "Q"; TAB ó;"R";TAB 12; 
"S";TAB 18;"T" 

1620 FOR J=1 TO 15 

1630 PRINT Q(J>;TAB 6;R(J>;TAB 1 

2;S í J);TAB 10;T<J) 

1640 NEXT J 
1650 RETURN 

1660 REM ######**********#*** 

* FIN DE SUBRUTINA * 
********* ******* **** 



1670 

















































CONTADOR 

,P4Ra 

usm p 


[ CONTADOR: 
PARA 
LISTA V 


CÜMPRDV4FI 
SI LDS 
NUfiflÉRQS 
C E P 1C HAN 
ACABADO 


Ya no habrá que 
agacharse para sacar las 
bolas debajo del sofá; 
con el Spectrum los 
números no se salen del 
bombo. 


ca V(2) en la lista P a partir de 
P(13), etc. 

La búsqueda finalizará en cuan¬ 
to un número de la lista V no esté 
en la lista P pero continuará mien¬ 
tras encuentre los números de V en 
P. El siguiente diagrama ilustrará 
este paso. 
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2500 REM ********************** 
*RUTINA PARA PREPARAR* 
*LOS NUMEROS A CANTAR* 

********************** 

2530 DIM A <9?> 

2540 POR hKl Tü 99 

2550 LET X=INT (99*RND>+1 

25ó0 IF A í X)< >0 THEN GO TÜ 2550 

2570 LET A(X)-N 

2580 NEXT N 

2590 RETURN 

2600 REM ******************** 

* FIN DE SUBRUTINA * . 


2700 

2990 REM ********************* 
* SUBRUTINA DE SORT * 

r Jj ||> tL iJ * -jlf ilf iXi JLr aJL> rfdb- JL< JL ÜU ajü 1 JU iL 1 ‘X» 

^ íp T T -tT * t 1 * T» ■T' *t* * * * * * T* 



3000 LET S=Y 

3010 LET S=INT (S/2) 

3030 IF S>=1 THEN GO TO 3050 

3040 GO TO 3170 

3050 FOR K«1 TO S 

3060 FOR A=K TO Y-S STEP K 

3070 LET B=A 

3000 LET T=P(A+S) 

3090 IF T>~P(B) THEN GO TO 3130 


3100 LET P(B+S)=PCB> 

3110 LET B=B—S 

3120 IF B>—1 THEN GO TO 3090 

3130 LET P(B+S)=T 

3140 NEXT A 

3150 NEXT K 

3160 GO TO 3010 

3170 RETURN 

3180 REM ******************** 
* FIN DE SUBRUTINA * 
******************** 

3190 


3490 REM ****************** 
«SUBRUTINA PARA 4* 
*ARRAYS NUMERICOS* 
****************** 

3500 FOR J=1 TO 15 

3510 IF U=1 THEN LET GKJ)=P<J> 

3520 IF U=2 THEN LET RÍJ>=P<J> 

3530 IF U=3 THEN LET 3<3>=P(J> 

3540 IF U=4 THEN LET ‘T(J)-PíJ) 

3550 NEXT J 

3560 RETURN 

3570 REM ******************** 

* FIN DE SUBRUTINA * 
******************** 

3580 




















































Tabla de datos 

Se han utilizado las siguientes 
variables: 

Q( 15), R(15), S(15), T(15) son 
tablas que contienen los números 
de los jugadores, 

A(99) es el vector que contiene 
los números a cantar. 

P(99) es la tabla que contiene los 
números que se han cantado y 
también se ha utilizado como al¬ 
macenamiento temporal para pre¬ 
parar los números de los jugadores 
yen la rutina de sort. 

X es un número aleatorio entre 
1 y 99. 

2 es el número de números can¬ 
tados. 

Y es el número de elementos 
que hay actualmente en el vector a 
intercalar, 


Comentamos 
exhaustivamente el 
programa, para facilitar su 
mejora o modificación. 


V(15) es el vector que contiene 
la lista de números ganadores, 

B$(99,2) es una cadena que con¬ 
tiene los valores correspondientes 
a los elementos en P{99). 

C es el código del carácter del se¬ 
gundo carácter en el array B$. 


D es el código del carácter del 
primer carácter en el array BS, 

M es el contador para el array P 
en la sección de comprobación de 
los números. 

Comentarios 

Si desea jugar con sus propios 
cartones de SINGO y dejar que el 
ordenador se encargue de cantar 
los números, entonces tendrá que 
suprimir los siguientes módulos 
del programa. 

1.3. Prepara los cartones de los 
jugadores. 

1.4. Visualiza los números de 
los jugadores. 

3.1. Idem que el punto 1.4. 

Estos dos últimos módulos son 
la misma rutina. También se pue¬ 
de alterar el programa e incluir, 
como opción dos maneras de jugar 
distintas, manual y automática. 


3990 REM ****************** 

* SUBRUTINA DE * 

* COMPROBACION * 

* DE RESULTADOS * 

****************** 

4000 PRINT 

4010 REM ***************** 

* SELECCIONA EL * 
♦CARTON GANADOR* 
***************** 

4020 PRINT ‘'TECLEA CARTON GANADO 
R (Q,R P S,T)" 

4030 INF'UT A* 

4040 IF A$0"a M AND A4<>"R" AND 
A$< >"S" AND A$< >"T" THEN GO TO 

4020 

4050 CLS 
4060 DIM V(15) 

4070 FOR N=1 TO 15 


4080 

N) 

IF 

A*="Q" 

THEN 

LET 

V <N> =Q( 

4090 

N) 

IF 

A*-"R" 

THEN 

LET 

V <N)=R< 

4100 

N> 

IF 

Aí="S" 

THEN 

LET 

V(N)=S( 

4110 

IF 

A$="T" 

THEN 

LET 

V <N)=T( 


N> 

4120 NEXT N 


4125 REM ******************** 
♦COMPROBAR NUMEROS* 

4130 LET M—i 

4140 FOR N=1 TO 15 

4150 IF V(N)=P(M) THEN PRINT V< 

N>;" CORRECTO" 

4160 IF V (N > —P(M) THEN GO TO 42 

00 

4170 LET M=M+1 

4180 IF M= Z+1 THEN GO TO 4220 
4190 GO TO 4150 
4200 NEXT N 
4210 60 TO 4245 

4220 PRINT "*CARTON "sA$í" NO ES 
TA COMPLETO*" 

4230 PRINT V (N) ; 11 NO SE HA CANTA 
DO" 

4235 REM ********************* 
♦VUELVE AL PRINCIPIO* 

* PARA CONTINUAR * 

********************* 

4240 GO TO 4260 

4245 PRINT ,,TAB 4;" ** ENHÜRABU 
ENA ** "; TAB 4;"**************** 
"FIN DEL JUEGO, USA f RUN” 
PARA EMPEZAR DE NUEVO" 


T 














Bingo de Paraninfo Soft 
Jugar sin salir de casa 


Existen varios programas co¬ 
merciales para jugar al Bingo. Co¬ 
mentamos brevemente el de Para¬ 
ninfo Soft, cuyo propósito es faci¬ 
litamos los cartones y ayudamos 
cantando los números y verifican¬ 
do si hemos obtenido línea o bin¬ 
go. 

La cinta viene con dos versiones 
del juego: en una de las caras se 
nos permite jugar con los cartones 
que se incluyen con el cassette. 


con un número máximo de 20. 
Cada jugador selecciona su cartón, 
y después le indicamos al progra¬ 
ma los números de los cartones se¬ 
leccionados. En la otra versión es 
el programa quien nos prepara los 
cartones aleatoriamente, debiendo 
cada jugador elegir uno de ellos. 

El programa puede hacer copia 
por i mpresora de los cartones; para 
ello debemos usar la ZX printer o 
impresora compatible, o bien un 


Inter face de impresora que soporte 
el comando COPY. 

Existen dos modalidades de jue¬ 
go: el programa puede ir sacando 
los números automáticamente, 
con intervalo variable, o esperar a 
que nosotros pulsemos una tecla 
para presentamos el número si¬ 
guiente. Los números que ya han 
salido quedan expuestos en un ta¬ 
blero en la parte derecha de la pan¬ 
talla, mientras el último número 




4250 REM *********************** 
*60 TO FIN DE PROGRAMA* 
*********************** 


4255 GO TO 1200 
4260 RETURN 

4270 REM ******************** 

* FIN DE SUBRUTINA * 
******************** 

4900 

5000 REM ********************* 

* SUBRUTINA DE PLGT * 
********************* 



5020 LET B$(N>=STR$ A(N) 

5030 LET OCODE B*ÍN><1 TÜ 1) 
5040 IF LEN B$(N><2 THEN GÜ TQ 
5060 

5050 LET D=CODE B$(NM2 TG 2) 

5060 FDR R-0 TÜ 7 

5070 LET E=PEEK (15360+8*C+R> 

5080 LET W=128 

5090 FOR 6*0 TG 7 

5100 IF E<W THEN GO TG 5150 

5110 PRINT AT 2*R+5,2*6+1; V 

5120 PRINT AT 2*R+ó í 2*G+l; "W 

5130 LET E=E-W 

5140 GG TO 5170 

5150 PRINT AT 2*R+5,2*6+1;" " 


5160 PRINT AT 2*R+Ó.2*6+1;” " 

5170 LET W-W/2 
5180 NEXT G 

5190 IF LEN B$(N)<2 THEN GO TG 
6020 

5200 LET F=PEEK (153Ó0+B*D+R) 

5210 LET W=128 

5220 FQR H=0 TÜ 7 

5230 IF F<W THEN GO TO 5280 

5240 PRINT AT 2*R+5 f 2*H+ió;"Hf 

5250 PRINT AT 2#R+6,2*H+16 ;"WM 

5260 LET F=F—W 

5270 GO TO 6000 

5280 PRINT AT 2*R+5,2*H+ló$" " 

5290 PRINT AT 2*R+6,2*H+16?" " 

6000 LET W=W/2 

6010 NEXT H 

6020 NEXT R 

6040 RETURN 

6050 REM ******************** 

* FIN DE SUBRUTINA * 

6060 

6070 REM %%%%%%%%%%%%%%%%%%%% 

* FIN DEL PROGRAMA * 
******************** 









que ha salido se nos presenta am¬ 
pliado en la parte izquierda de la 
pantalla. 

Otra opción del programa nos 
deja que sea el programa quien nos 
avise cuando alguno de los jugado¬ 
res ha conseguido línea o bingo. 
Hay que tener cuidado, ya que el 
programa sólo avisa el cartón de 
numeración más baja que consiga 
línea o bingo. Si a la vez hubiera 
otro, se le debe pedir verificación 



al programa que no cantara línea o 
bingo. 

En suma, nos encontramos con 
un programa útil para los amantes 
del Bingo, ya que con él nunca se 
nos caerán las bolas por el suelo, y 
tampoco se nos adelantará el listo 
de tumo aprovechando que nos ha 
tocado a nosotros cantar los núme¬ 
ros. Será el Speetrum quien se en¬ 
cargará de estas desagradables ta¬ 
reas. 



Cantar ¡BINGO! 
es fácil, !o difícil 
es hacer trampa 
al programa. 


al programa. Este nos pedirá que 
introduzcamos los números de 
nuestro cartón y nos dirá si, efecti¬ 
vamente, hemos compartido el 
premio. Esta será la única manera 
de conseguir premio si le dijimos 



SUSCRIBASE 
POR TELEFONO 

* más fácil, 

* más cómodo, 

* más rápido 
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Tetf.(91)7337969 

7 días por semana, 24 lloras a su servicio 
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menos que un medio para que 
el ordenador se comunique 
con el mundo exterior. Todos 
los ordenadores llevan 
incluido alguno que les 
permite la comunicación con 
el televisor, el teclado o el 
cassette. Un Spectrum sin 
medios de comunicación con 
el exterior sería como una 
radio sin altavoz o un coche 
sin ruedas. 


P arece claro, según esto, que 
las comunicaciones con el 
mundo exterior forman pár¬ 
oli te básica e imprescindible 
para el manejo y utilización 
de un sistema tan sofisticado como 
lo es un Ordenador Personal. 

Para el buen entendimiento de 
un Spectrum con el mundo exte¬ 
rior es imprescindible adaptar la 
información a los requerimientos 
del corazón de nuestro Spectrum, 
el microprocesador Z80-A. Esta es 
la función de los interfaces. 

El Spectrum está dotado de un 
circuito integrado denominado 
ULA que es el encargado de las co¬ 
municaciones con teclado, panta¬ 
lla. cassette, altavoz, etc. 

¿Por qué no tener nosotros un 
Interface para las comunicaciones 
exteriores que nos interesen? 

El montaje, aquí presentado, nos 
permite el acceso al exterior de 
una manera muy versátil. 

Estamos hablando de un inte¬ 
grado de la familia Z80 llamado 
Z80-PIO. 


Z80-PIO 

La CPU Z80 tienen dos tipos de 
instrucciones específicas para la 
comunicación con los dispositivos 
de entrada/salida. 1N utilizada 
para introducir un dato desde e! 
exterior y OUT para transmitir un 
dato al exterior. 

Exis te un pin (el n.° 20) llamado 
IORQ en la CPU Z80, que se acti¬ 
vará cuando se realice una de estas 
dos instrucciones. Este pin nos 


Su versatilidad le per¬ 
mite múltiples aplica¬ 
ciones 


permitirá diferenciar si la CPU 
está haciendo refer encia a una po¬ 
sición de memoria (IORQ = “l”) o 
bien lo está haciendo a una direc¬ 
ción de entrada/salida (IORQ - 0 ). 

La Z80-PIO (Perip hería! Input 
Output) es un dispositivo que con¬ 
tiene dos ports de entrada/salida 
(el A y el B)> cada uno de ellos de 
ocho bits; además, cuenta con cua¬ 
tro señales de protocolo. En la fi¬ 
gura a se describen la disposición 
de pines de este circuito integrado. 

Para el pon A existen cuatro 
modos de direccionamiento; 

— Modo 0 o modo sólo salida. 
Sirve para enviar datos al exterior 
desde la CPU. 

— Modo 1 o modo sólo entrada. 
Sirve para tomar datos desde el ex¬ 
terior y enviarlos a la CPU. 

— Modo 2 o modo bidireccio- 
nal. Engloba los dos anteriores. 

.— Modo 3 o modo control. 
Cada línea del porí tiene un signi¬ 
ficado diferente y cada una de ellas 
puede actuar como línea de entra- 


























































da, de salida o de petición de inte¬ 
rrupciones. 

El pon B tiene los mismos mo¬ 
dos de funcionamiento que el A 
excepto el modo 2. 

Para la utilización de un port es 
imprescindible indicarle ei modo 
de funcionamiento que nos intere¬ 
se. Esto se hará enviando previa¬ 
mente un comando de selección de 
modo de funcionamiento que más 
adelante se detallará. 


Direccionamiento 


En el Spectrum (véase cap. 23 
del manual) para las operaciones 
de entrada/salida con el teclado, 
pantalla, etc., se utilizan los cinco 
bits de menor peso del Bus de di¬ 
recciones para direccionar los 
ports correspondientes a estas co¬ 
municaciones. 

Para evitar posibles interaccio¬ 
nes con los ports específicos del 
Spectrum será conveniente que los 
bits AO, Al, A2, A3, A4 estén a 
«1», es decir, que las direcciones 
asignadas a nuestros montajes con¬ 
tengan en estos cinco bits un «1». 

El pin 6 (B/A) de la Z80-PIO es 
la entrada de selección de PORT. 
Si éste es «0» nos estaremos refi¬ 
riendo al port A y si es «I» al port 
B. 

El pin 5 (C/D) indica, si está a 
«1», que el contenido del Bus de 
datos es un comando de selección 
de modo de funcionamiento, y si 
está a «0» la información conteni¬ 
da en dicho Bus.será un dato. 

El pin 4 (CE), activo a nivel 
bajo, indica a la Z80-PIO que pue¬ 
de utilizar el Bus de datos. 

Con motivo de hacer coincidir 
la dirección asignada al Port A con 
la utilizada por el KEMPSTON 
JOYSTICK hemos unido en nues¬ 
tro montaje el pin B/A de la 
Z80-P10 con el A5 del Bus de di¬ 
recciones, el C/D con el A6 y el 
C/E con el A7, quedando configu¬ 
rada la siguiente tabla de direccio¬ 
nes: 


Uso de la PIO 

Para la utilización de un port, 
previamente hay que seleccionar 
su modo de funcionamiento, que¬ 
dando éste inalterado hasta la pró¬ 
xima selección o un apagado del 
ordenador. 

Selecciones de modo de funcio¬ 
namiento: 

— Modo 0 (sólo salida). Para la 
selección de este modo de funcio¬ 
namiento hay que enviar el co¬ 
mando hexadecimal 0F equiva¬ 
lente a 15 en decimal. 

En concreto, el port A quedará 
programado en este modo ejecu¬ 
tando desde el Basic la instrucción: 
OUT 95.15. Para el port B sería: 
OUT 127,15. 


En este modo de funcionamien¬ 
to podremos enviar al exterior por 
el port en cuestión, cualquier dato, 
comprendido entre 0 y 255, que 
aparecerá en binario en los ocho 
hilos del pon. De esta manera, 
para el port A siempre que haga¬ 
mos OUT 31,DATO aparecerá el 
DATO, escrito en binario, en los 
hilos AO a A7 del port A de la PIO. 
Para el port B sería: OUT 
63,DATO y el DATO aparecerá 
en los hilos B0 a B7 del pon B de la 
PIO. 

— Modo l (sólo entrada). Para 
seleccionar este modo de funciona¬ 
miento habrá que hacer: 

Port A: OUT 95,79 

Port B: OUT 127.79 

Este modo permite la lectura de 
los datos, escritos en binario, que 


se presenten en los hilos del port 
correspondiente. 

Por ejemplo: haciendo LET v = 
IN 31, el dato presente en el port 
A quedará almacenado en la varia¬ 
ble v. Con LET v - IN 63, sería el 
dato presente en el port B el alma¬ 
cenado en la variable v. 

— Modo 2 (bidireccional). Este 
modo sólo es posible en el port A. 

Se selecciona haciendo: OUT 
95,143. 

En este modo, cuando se haga 
OUT 3 I ,DATQ, el DATO apare¬ 
cerá, como en el modo 0. en los hi¬ 
los del port A y cuando se haga 
LET v = IN 31, el funcionamiento 
será el mismo que el del modo I, 


— Modo 3 (control). Se selec¬ 
ciona haciendo: 

Por A: OUT 95,207 

Port B: OUT 127,207 

En este modo de funcionamien¬ 
to se puede escoger de cada port 
los hilos que deseemos como en¬ 
tradas o como salidas. Para indicar 
qué hilos serán de entrada y cuáles 
de salida hay que enviar un segun¬ 
do comando cuyo valor se obten¬ 
drá considerando el siguiente for¬ 
mato: 

Para los hilos que se deseen 
como entrada hay que poner un 
«1» y para los de salida se pondrá 
un «0». 

Haremos entonces: 

Pon A: OUT 95, BIN X,X 6 X<X 4 
X 3 X i X,X 0 


PORT A 

A7 A6 A5 A4 A3 A2 Al A0 hex. dec. 

COMANDO O 1 O 1 i 1 1 l 5F 95 

DATO O 0 O 1 1 1 1 1 IF 31 

PORT 0 

COMANDO ..1 1 7F 127 

DATO O 0 1 1 1 1 1 1 3F 63 






T 


Port B: OUT 127.BIN X V X,X,X 4 
X3X,X 0 . 

Por ejemplo: Si queremos tener 
en el port A los hilos A4, A3 y Al 
como entradas y el resto como sali¬ 
das tendríamos que hacer: 

OUT 95,207: OUT 95.BIN 
00011010 

Selecciona modo 3: Especifica 
líneas l/O. 

Haciendo LET v = IN 31 se 
guardará en la variable v el dato 
compuesto por la información pre¬ 
sente en las líneas definidas como 



Un zócalo de 40 patas 
ICIZ80-PIO 
Un conector posterior 
16 resistencias de 100 K 1/8 W 


A7 

A6 

A 5 

A 4 

A 3 

A 2 

A 1 

A 0 

B7 

B6 

B5 

B4 

B 3 

02 

0 1 

B 0 

X 7 

X 6 

X 5 

X 4 

X 3 

X 2 

X 1 

x 0 


entradas y la última información 
enviada por lineas de salida. 

Haciendo OUT 31, DATO sólo 
enviaremos la información corres¬ 
pondiente a las líneas selecciona¬ 
das como salidas ignorando la co¬ 
rrespondiente a las líneas de entra- 


de circuito impreso, aunque pue¬ 
den soldarse a través de unos hili- 
llos de los usados normalmente 
para cableado. 

Hay que recordar que nuestro 
port A (cuya dirección es la 31) 


coincide con la utilizada por el 
KEMPSTON JOYST1CK lo que 
nos permite utilizar el montaje 
descrito como Interface para dicho 
tipo de Joystick. Para ello habrá 
que hacer funcionar el port A en 
modo de sólo entrada. 

El KEMPSTON JOYSTICK 
utiliza la siguiente asignación de 
bits: 

A4: Disparo. 

A3: Movimiento hacia arriba. 

A2: Movimiento hacia abajo. 

Al: Movimiento hacia la iz¬ 
quierda. 

A0: Movimiento hacia la dere¬ 
cha. 

Estas señales son activas a nivel 
alto, es decir, se efectuará el movi¬ 
miento correspondiente cuando 
haya tensión de 5 v en el bit asig¬ 
nado. Los restantes bits, no men¬ 
cionados (A7, A6, A5), no están 
conectados. 

Nosotros hemos utilizado este 
montaje con un Joystick SPEC- 
TRAVIDEO mod. Quick Shot 


da. 


Montaje 



Este montaje presenta cierta di¬ 
ficultad por el hecho de estar reali¬ 
zado en circuito impreso de doble 
cara junto con la necesidad de te¬ 
ner que hacer bastantes soldaduras 
en ambas caras. 

Los taladros señalados con la le¬ 
tra p, en la figura adjunta, son 
puentes de conexión entre las dos 
caras. Estos puentes se pueden rea¬ 
lizar, por ejemplo, con trozos de 
patillas de resistencias. 

Es indispensable el uso de un zó¬ 
calo de 40 pínes para la PIO con el 
fin de evitar la inutilización del in¬ 
tegrado por excesivo calentamien¬ 
to al efectuar las soldaduras. 

En el prototipo se ha soldado di¬ 
rectamente el conector a la placa 



PUERTA, A 
l/O 


PUERTA, B 

l/O 


Esquema de tas funciones de la ZSO-PIO. Los números en el interior 
corresponden a las asignaciones de las patas del circuito integrado. 



























































TM II y hemos conectado los hilos 
según la relación: 

AO: marrón. 

A1: verde. 

A2: azul. 

A3: blanco. 

A4: naranja. 

A 5: rojo. 

Una particularidad muy impor¬ 
tante, para el buen funcionamien¬ 
to del Joystick , es la de que hay 
que hacer, antes de cargar el juego 
deseado, la instrucción: OUT 
95,79, con el fin de que el port A 
quede debidamente programado 
en el modo de sólo entrada. 


Futuros montajes con 

la PIO 
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Cara superior de ta 
placa de circuito 
impreso. Los 
terminales marcados 
P corresponden a 
puentes entre la cara 
superior y la inferior. 
En ta parte superior 
de la figura están las 
pistas del conectar al 
bus de expansión del 
Spectrum , Las 
resistencias deben 
soldarse en las salidas 
de tos dos ports en ta 
parte inferior de la 
figura. 


Evidentemente, la utilización de 
la Z80-PIG como Inter face para un 
Joystick sería un derroche de tra¬ 
bajo y dinero* 

Este montaje, al que podríamos 
bautizar como Interface 0, tiene 
infinidad de aplicaciones (sólo li¬ 
mitadas por la imaginación), tales 
como: Controlador Doméstico, 
Voltimetro de baja frecuencia, Os* 
ciloscopio de baja frecuencia con 
memoria, Cuentavueltas múltiple 
para Scalextric y similares, Con¬ 
trolador de tráfico para trenes eléc¬ 
tricos, Generador programable de 
baja frecuencia, Control de inver¬ 
naderos, peceras, etc*, Interfaces 
serie y paralelo para impresoras, 
etc. 


Esperamos seguir con algunas aplicaciones de este montaje 
en nuestros próximos números. Y también esperamos que 
nos enviéis los desarrollos que realicéis a partir de este 
montaje ampliando las posibilidades de comunicación del 

Spectrum. 
Leandro Rodríguez 



Cara inferior del 
circuito impreso * 



A tención a los 
puentes con la cara 
superior. 

























































































£-*^ i usted ya maneja el lenguaje 
máquina y sabe el significa- 
do de términos tales como 
BH «LDA», «IX», «byte» y 
«bit», entonces esta serie NO 
es para usted, ya que está plantea¬ 


da como un aprendizaje desde los 
principios básicos subiendo poco a 
poco hasta dominar este «idioma» 
de entendidos. En definitiva, va 
destinada a aquéllos que creen que 
el lenguaje máquina (o el ensam¬ 



blador) son los cuchicheos que se 
cuenta un ordenador a otro, o la 
persona que los monta en la fábri¬ 
ca o para los que creen que para 
manejarlo se necesita soldador y 
estaño (cosa totalmente falsa). 

Quizás en algunas partes, como 
sucede este mismo mes, nos exten¬ 
damos mucho en explicaciones 
teóricas que a alguien le podrán 
parecer superfluas y destinadas a 
llenar hojas, pero a los escritores 
técnicos (por lo menos a nosotros) 
no les pagan por palabra escrita, y 
si algo se incluye es porque será 
necesario más adelante para com¬ 
prender otras instrucciones más 
prácticas. 

Junto a la serie en sí misma irán 
apareciendo, a lo largo de los me¬ 
ses unos comentarios sobre los 
programas ensambladores existen¬ 
tes en el mercado. Estos progra¬ 
mas, cuya función explicamos más 
adelante, se pueden considerar in¬ 
dispensables para trabajar, en len¬ 
guaje máquina debido al trabajo 
que ahorran y si no posee ninguno 
piense en comprarlo si quiere par¬ 
ticipar activamente en este «se¬ 
rial»; para elegir el que más le con¬ 
venga nada mejor que leer estos 
comentarios. 

Por último, debemos hacer una 
recomendación importante. En in¬ 
formática, al igual que en otras 
ciencias, el saber la teoría no im¬ 
plica necesariamente el saber ha¬ 
cerlo prácticamente y se puede lle¬ 
var desagradables sorpresas si se 
pone a hacer un gran programa sin 


















haber practicado previamente par¬ 
te por parte. Si tiene un ordenador 
es para usarlo, no lo olvide. 


Cómo funciona un ordenador 

Está demostrado científicamente 
que los ordenadores no funcionan 
porque tengan dentro una pandilla 
de enanitos que manejen abacos a 
mucha velocidad, ni tampoco por 
intuición, todos poseen una estruc- 
- tura básica muy similar que, aun¬ 
que no necesaria para programas, si 
es conveniente saber cómo es para 
poder ver el sentido lógico de las 
instrucciones. 

La estructura interna de un or¬ 
denador es la que se ve en la figura 
1 en la que se distinguen varios 
bloques tales como microprocesa¬ 
dor, memoria (RAM y ROM) y 
dispositivos de entrada y salida 
(E/S). Todos ellos son comunes a 
todos los ordenadores y las diferen¬ 
cias residen en el tipo de estos dis¬ 
positivos, pero no en su existencia, 
ya que siempre están. 

El más importante de todos estos 
bloques {o por lo menos más famo¬ 
so). es el microprocesador. Este es 
lo que se denomina «corazón» de 
la máquina, aunque más bien se le 
puede denominar el cerebro ya 
que es el que se encarga de realizar 
todos los procesos y de dirigir a los 
demás. En el caso del Spectrum. el 
microprocesador se denomina 
Z-80 y es ampliamente conocido 
ya que lo llevan otros ordenadores 
existentes en el mercado (Amstrad, 
MSX y todos los que funcionan 
con CP/M). Este viene a ser el car¬ 
tero que reparte las cartas mientras 
que los demás constituyen los bu¬ 
zones o los almacenes de las carte¬ 
rías. 

La memoria (RAM o ROM) se 
asemeja a los cajetines existentes 
en las oficinas de correos en los 
que se distribuyen las cartas para 
ser repartidas luego. Aunque como 
veremos estos cajetines tienen 
unas características bastante espe¬ 



ciales que los diferencian de los 
reales. 

Por último los dispositivos de 
entrada y salida constituyen los 
buzones donde dejamos las cartas 
y de donde las recogemos, es decir, 
por donde entra y sale la informa¬ 
ción. Los ejemplos más claros de 
estos dispositivos son el teclado y 
la pantalla, aunque también pue¬ 
den existir otros como son la im¬ 
presora, los joysück. etc. 

Los sistemas de numeración. 

O cómo 1000 puede ser 
distinto de 1000 

Esta afirmación tan sorprenden¬ 
te tiene su razón de ser. Nosotros 
los humanos estamos acostumbra¬ 
dos a operar en decimal, lo que 
quiere decir, ni más ni menos, que 
9 más 1 es 10. Pero los ordenado¬ 
res tienen la costumbre de operar 
en binario. En este caso resulta 
sorprendente ver que 1 más 1 es 
10 , aunque muchas veces (por 


ejemplo, trabajando en BASIC) se 
nos muestran los números en deci¬ 
mal para simplificamos la tarea. 
En lenguaje máquina esto no suce¬ 
de y hay que acostumbrarse a ope¬ 
rar en binario y en hexadecimal, 
que es otro modo de expresar los 
números. 

Es muy probable que con el pá¬ 
rrafo anterior se haya armado un 
lío, y no es extraño, ya que éste es 
uno de los puntos más difíciles de 
explicar de todos. Para simplificar 
todo y hacerlo más comprensible, 
vamos a basamos no en números, 
sino en cantidades, para ello coja 
una caja de cerillas (lo sentimos 
por aquéllos que usan mechero) y 
dispóngalas a su lado. Nosotros las 
representaremos aquí por asteris¬ 
cos (*) pero el proceso será el mis¬ 
mo. 

Ya sabemos que en decimal «*» 
es 1 , «**» es 2 y así sucesivamente 
hasta *********** que significa 9. 
También sabemos que si juntamos 
«*» ( 1 ) y «*******+*>> ( 9 ) obtene¬ 
mos ***********» (] 0 ). Esto lo ex- 
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presamos diciendo que «9 más 1 es 
10». Esto lo comprendemos todo y 
sabemos que 90 más 10 es 100 
(perdone que no lo pongamos con 
asteriscos pero no tenemos espa¬ 
cio) ya que 0 más 0 es 0 y 1 más 9 
es 10. Pero en binario es distinto, 
ya que, sólo existen los números 
cero y uno, en este sistema cero 
significa que no tenemos ninguna 
cerilla y uno es «*». Pero uno más 
uno (¡¡¡Preste atención!!!) es 10, lo 
que haciéndolo con cerillas es «*» 
más «*» es igual a «**», Por lo que, 
por la relación que acabamos de 
expresar significa que 10 es «**» 
en binario, mientras que en deci¬ 
mal esta cantidad se expresa como 
2. Por otra parte, en binario sigue 
siendo cierto que 0 más 1 es 1 , por 
lo que si en binario decimos 10 
más I, queda 1 !, que es «**» más 
«*», o sea «***», y 11 más 1 (tam¬ 
bién en binario) es 100 (1 más 1 es 
10 y nos llevaremos I, en el si¬ 
guiente sucede lo mismo y queda 
el 100 ) que con cerillas da «****». 
Vemos por tanto que los números 
son relativos y que pueden expre¬ 
sar diversas cantidades dependien¬ 
do de la base en que estemos traba¬ 
jando. Para no confundirnos a par¬ 
tir de ahora pondremos un «b» de¬ 
trás del número si éste está en bi¬ 
nario y si no hay nada es que está 
en decimal. 

Al igual que hemos visto el siste¬ 



ma binario y el decimal, existe una 
cantidad infinita de sistemas de 
numeración, ya que la única dife¬ 
rencia entre unos y otros está en el 
significado del término, « 10 », o lo 
que es lo mismo, la cantidad máxi¬ 
ma que se puede expresar con una 
sola cifra, que será una menos que 
la indicada por «10». En el sistema 
decimal (decimal = base 10 ) un 
« 10 » es < < **********>> ! en el binario 
(binario = base 2) «10» es «**». De 
lo que se deduce que en cada siste¬ 
ma el « 10 » es la cantidad indicada 
por la base y sólo existirán núme¬ 
ros de un solo dígito inferiores a 
éste, ya que si no. habría dos sím¬ 
bolos para expresar la misma can¬ 
tidad (por ejemplo 10 y 2 en bina¬ 
rio) lo que va en contra de los fun¬ 
damentos de las matemáticas, na¬ 
turalmente es necesario saber en 
qué base se expresa la base de un 
sistema (si nos dicen que operamos 
en decimal, o sea en base 10 , hay 
que saber en qué base está este 10 ) 
pero ésta, por definición siempre 
es la usada por los humanos (deci¬ 
mal = ************ y binario = 
«**»). 
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Si por ejemplo, nos dicen que 
trabajamos en base cinco, sabre¬ 
mos que en ese siste ma, «10 » es 
«*****» y, por tanto 4 + 1 = 10. 
Asimismo, sólo existirán en base 
los dígitos «0, 1,2, 3 y 4» y no ten¬ 
drán sentido números como «517» 
o «912» ya que incluyen cifras no 
válidas. Si decimos que operamos 
en base octal (8) el proceso será el 
mismo, pero con la excepción de 
que sólo existen «0.1,2, 3,4, 5, 6 y 
7» y 10 — ^***+***#^ 

En todos los sistemas las opera¬ 
ciones se hacen como sabemos, 
pero teniendo en cuenta el límite 
de dígitos. Tomemos como ejem¬ 
plo la suma y la resta (las más usa¬ 
das), sí trabajando en base octal, 
nos ponen el siguiente problema: 
451 + 743, la solución se hallará 
diciendo: 3 y 1.4 y 5 NO es 9 (este 
número no existe), si no que debe¬ 
mos expresar el 5 como 4 + 1 y 
queda 4 + 4 + 1, sabiendo que 4 + 4 
es 10, queda que 4 + 5 es 11, en la 
tercera columna queda 4 más 7 
más 1 que nos llevamos de antes, 
ahora bien. 7 más 1 es 10 y diez 
más cuatro es 14, por lo que la 
suma nos da de resultado 1414 (en 
octal). En los sistemas de numera¬ 
ción que hemos estudiado hasta 
ahora, los procesos son más senci¬ 
llos, ya que en decimal ya sabemos 
(el que hemos manejado siempre) 
y en binario sólo existen tres ope¬ 
raciones distintas 0 + 0 = 0, 0 + 1 = 
1 (ambas similares a las de deci¬ 
mal) y 1 + 1 = 10. Sabiendo esto no 
resulta ningún problema operar. 

Al principio del capítulo co¬ 
mentamos otra base que es la de¬ 
nominada hexadecimal. Como he- 
xadecimal significa 16. sabremos 
que en esta base 10 = 

t< **************** y>i 0 j 0 q Ue es | 0 

mismo, 16 en decimal. Pero nos 
encontramos con un problema, si 
10 tiene este valor, ¿cómo se ex¬ 
presa 9+1? Como hemos comen¬ 
tado anteriormente, debe ser un 
número de una sola cifra ya que no 
puede haber ningún valor inferior 
a «10» con dos cifras, pero nuestro 
sistema de numeración no dispone 
de lo necesarios, por lo que tendré- 


































mos que recurrir a otros. En lugar 
de inventarlos nuevos recurrire¬ 
mos a un grupo bien conocido: el 
alfabeto. Sabemos que tenemos 
que usar seis nuevos (9 + 1 .9 + 2 , 9 
+ 3,9 + 4. 9 + 5 y 9 + 6 ), ya que 9 + 7 
es «10». Para ello elegiremos las 
seis primeras letras y se las asigna¬ 
remos en el mismo orden, por lo 
que en hexadecimal: 9 + I =-A, 9 + 
2 = B, 9 + 3 = C, 9 + 4 = D. 9 + 5 = E, 
9 + 6 = F. Expresado en cantidades 
sale A — << **w**#*** >> p _ 

<<***************» Evidentemen¬ 
te F + 1 = 10, A + 5 = F. etc. Para 
representar un número hexadeci- 
mal le añadiremos detrás la letra 
«h» para distinguirlo de los demás. 

Un último detalle a explicar es 
el de pasar de una base a otra. Para 
pasar de cualquiera a decimal, el 
proceso es muy sencillo, si nos fija¬ 
mos, por ejemplo en el sistema bi¬ 
nario, en el valor de Ib. veremos 
que es 1 «*», 10 b es 2 «**», 100 b es 
4 «****». Y I es 2 elevado a cero. 2 
es 2 elevado a uno, 4 es 2 elevado a 
dos. Por tanto, si numeramos las 
distintas posiciones de los núme¬ 
ros binarios de derecha a izquierda 
empezando desde cero (figura 2 ), 
veremos que el valoren decimal de 
cada posición es la correspondien¬ 
te potencia de dos, por lo que para 
hallar el valor decimal basta multi¬ 
plicar el correspondiente dígito 
por su potencia de dos y luego su¬ 
marlos lodos. Este proceso se 
muestra en la figura 3. 

En hexadecimal el proceso es si¬ 
milar pero los números que debe¬ 
mos multiplicar son la correspon¬ 
diente potencia de !6 (que es la 
base en este caso) por el valor co¬ 
rrespondiente en decimal del dígi¬ 
to del número (Ah = 10, Bh = I 1 



Fh - 15). El proceso para números 
hexadecimales se muestra en la fi¬ 
gura 4. 

Con todo esto esperamos que 
hayan comprendido cómo funcio¬ 
nan las distintas bases y en caso de 
duda recurran a la caja de cerillas. 


te habrá oído hablar mucho de él. 
Este es una especie de interruptor 
que sólo puede tener dos estados: 
encendido y apagado. Cuando está 
encendido decimos que vale I y 
cuando está apagado decimos que 
tiene un 0. Si ponemos dos «bits» 
juntos, veremos que puede adoptar 
¡os siguientes valores entre los dos: 
«00», «01», « 1 0» y «11 ». Salta rá¬ 
pidamente a la vista que éste es el 
sistema binario, por lo que con bits 
podremos expresar números en 
sistema binario (y si es necesario 



Un último punto que se debe to¬ 
car antes de pasar a una descrip¬ 
ción completa del ordenador, es el 
de los términos comunes emplea¬ 
dos a lo largo de toda la serie. Mu¬ 
chos de ellos son amplia mente ma¬ 
nejados por todos aún sin saber 
qué significan, otros son totalmen¬ 
te desconocidos. De todos ellos ha¬ 
remos una descripción para que se 
puedan manejar con conocimiento 
de causa. 

El primero de todos es «bit» (no 
confundir con byte). Probablcmen- 
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simplemente un grupo de 8 bits, de 
modo que el valor menor que pue¬ 
de adoptar es 00000000 b y el 
mayor 111 11 11 Ib, que se corres¬ 
ponden al 0 y al 255 decimales. 

«K» es la abreviatura de Kiloby- 
les, que No significa 1.000 bytes, 
sino 1,024 bytes. La razón de esta 
diferencia está en que 1.024 es una 
potencia de 2 y 1.000 no lo es. por 
lo que al ordenador le resulta mu¬ 
cho más fácil manejar el primer 
número. 

ASCII es la abreviatura de 
«American Standard Cade for In¬ 
formation Interchange» y es un 
sistema de códigos empleados para 
poder almacenar letras y otros 
símbolos dentro del ordenador, ya 
que en principio éste sólo puede 
almacenar números en sus memo¬ 


rias. 


CPU es Ja abreviatura de «Cen¬ 
tral Proccesing Unir», en palabras 
llanas este es el microprocesador 





























































(el Z-8Ü) pero llamado de otra for¬ 
ma. 

Nibble, este término bastante 
poco conocido indica la mitad de 
un byte, es decir, cuatro hits. 

Software es el nombre que se uti¬ 
liza para designar cualquier tipo de 
programa, incluyendo los que vie¬ 
nen metidos dentro de él desde la 
fábrica. El software es pura infor¬ 
mación (datos o instrucciones para 
ejecutar programas) y se debe 
transmitir por algún medio {listado 
de impresora, cinta de cassette, 
microdríve, etc.) pero estos ele¬ 
mentos no constituyen el software. 
sino la información que transmi¬ 
ten, 

Hardware es el opuesto del ante¬ 
rior, en general es todo componen¬ 
te físico del ordenador, cualquier 
cosa que se pueda tocar. Normal¬ 
mente se refiere a los circuitos que 


El término bug surgió 
cuando, en los primeros 
ordenadores, las máquinas 
resultaban averiadas al 
introducirse polillas entre las 
válvulas. 

lleva. La palabra significaba origi¬ 
nalmente en inglés «chatarra». 

Bug es literalmente «biehito» 
(véase cucaracha, polilla, etc.) 
pero ha evolucionado por caminos 
extraños hasta convertirse en un 
término empleado para indicar un 
error en un programa. Dice la 
leyenda que el término se empezó 
a usar después de que una polilla 
estropease uno de los primeros or¬ 
denadores IBM existentes allá por 
los lejanos años 60. 

El término «dump» se utiliza 


para indicar un volcado de la me¬ 
moria, como esta frase les habrá 
dicho lo mismo que ia primera {es 
decir, nada), la explicaremos. Mu¬ 
chas veces cuando falla un progra¬ 
ma en lenguaje máquina es necesa¬ 
rio mirar lodos los contenidos de 
memoria y ver dónde lia fallado el 
programa. Para ello se obtiene un 
listado donde se muestra el conte¬ 
nido de todas las memorias. Este 
listado es el denominado «volcado 
de memoria» o «dump de memo¬ 
ria». 

La pila o «stack» es un sistema 
de almacenamiento de datos muy 
usado que funciona como una me¬ 
moria LIFO (ver definición si¬ 
guiente). 

L1FO. Sistema de almacena¬ 
miento «Last ln, First Out», que 
significa último en entrar, primero 
en salir. Y significa que si en un 
sistema de éstos introducimos los 
números 7, 45 y 12 por este orden, 
el primero que podemos sacar es el 
12, el siguiente el 45 y por último 
el 7. Funciona de un modo similar 
a una pila de platos de la que sólo 
podemos coger el superior. 

F1FO. Abreviatura de «First ln. 
First Out» (primero en entrar, pri¬ 
mero en salir). Al contrario que el 
anterior, en este sistema se saca 
primero el primer número que en¬ 
tró, de modo que si introducimos 
los mismos datos que en el caso 
anterior, primero sacaremos el 7, 
luego el 45 y por último el 12. 

Con esto quedan explicados los 
principales términos. Los demás 
que necesitemos los iremos expli¬ 
cando según se necesiten. 

Fernando García 
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La gestión, actualización y presentación de grandes cantidades de datos es una de las 
aplicaciones más importantes de los ordenadores personales. A pesar de que el 
cassette no es el medio de almacenamiento idóneo, debido a su baja 
velocidad de transferencia y a la imposibilidad de 
rebobinar o avanzar sin intervención del 
ordenador, existe 


un creciente 
número de usuarios que 
no se resigna a dejar de utilizar su 
Spectrum para la gestión de pequeños ficheros. 
Para ello existen dos posibilidades; utilizar 
programas específicos, diseñados para la aplicación 
concreta que se quiera realizar, o bien un 
programa de base de datos, mucho más general, 
pero que no podrá procesar todos los 
aspectos que deseemos de nuestro fichero, o nos 
obligará a hacerlo manualmente. 


M áster Pile intenta cubrir lo 
mejor permitiéndonos 
añadir un programa en 
r 'BASIC que se ejecutará 
cada vez que se procese 
un registro. Por este sistema se 
puede calcular algún campo de 
cada ficha en función de los conte¬ 
nidos de otros campos, o realizar 
cuentas del número de ocurrencias 
de una campo determinado, etc. A 
esto se le añade una base de datos 
rápida, con una gran variedad de 
formatos de escritura. 
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Comenzamos^ para quienes no 
estén habituados, por la termino¬ 
logía de la base de datos. Un fiche¬ 
ro está formado por un número in¬ 
determinado de fichas o registros, 
cada uno de los cuales se compone 
de distintas líneas de información 
(campos). En MasterFile el núme¬ 
ro máximo de campos es de 26, 
cada uno de los cuales puede con¬ 
tener hasta 128 caracteres de infor¬ 
mación. La estructura de cada re¬ 
gistro no es rígida, pudiendo llevar 
los campos en cualquier orden y 
omitir alguno de ellos. La capaci¬ 
dad de memoria llega hasta 32 K 
para datos, dependiendo de la can- 


Base de Datos 
para Spectrum 


tidad de memoria que utilicemos 
en nuestro programa. 

Una de las características más 
interesantes en MasterFile es que 
puede mostrar la información con 
hasta 36 formatos diferentes, que 
quedan almacenados en el ordena¬ 
dor. Así, un formato podría listar a 
los empleados de una empresa por 
orden alfabético, con nombre, di¬ 
rección, teléfono y cargo, mientras 
otro nos proporciona i a lista por 
departamentos, con el cargo y el 
salario. El cambio de uno a otro es 
muy sencillo, y no exige más que 
introducir el número del formato. 


La presentación en 
pantalla permite hasta 51 
caracteres por línea 

Otra característica que aparece 
en la versión 08 y siguientes es el 
Micro-Print, que permite la im¬ 
presión con 42 ó 51 columnas en 
la pantalla de nuestro televisor. Se 
pueden mezclar los tres formatos 
de impresión en la misma línea, y 
el único inconveniente es que los 
atributos no coinciden exactamen¬ 
te con los límites de los caracteres 
cuando se trabaja a más de 32 co¬ 
lumnas. 


PROTEJA SU SPECTRUM PLUS CON ESTA 
PRACTICA FUNDA 



Aproveche ¡a oportunidad de mantener 
como nuevo su Spectrum Plus 
con esta funda, y beneficíese 
de un 30% de descuento 
sobre su precio normal. 


A UN PRECIO ESPECIAL 


OFERTA LIMITADA 
Y EXCLUSIVA PARA 
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La definición de formatos de im¬ 
presión resulta ser una de las tareas 
principales en la creación de cual¬ 
quier Base de Datos, ya que ia uti¬ 
lidad del programa depende de la 
mayor parte de las veces de lo fle¬ 
xible y completa que sea la presen¬ 
tación de esta información, sea en 
pantalla o impresora. Para editar 
un formato se debe pulsar E en el 
menú principal. Tras ello, la op¬ 
ción A permite crear un nuevo for¬ 
mato, y la R repasar o alterar un 
formato ya existente. Las caracte¬ 
rísticas generales de cada formato 
incluyen qolor de borde y papel, 
número de líneas entre registros y 
secuencia de presentación de los 
registros. 


tantos elementos particulares 
como queramos. Estos pueden ser 
Literales, es decir, textos en una 
posición fija de la pantalla. Cajas, 
que se utilizan para enmarcar da¬ 
tos, y lineas horizontales o vertica¬ 
les, importantes a la hora de tabu¬ 
lar nuestro fichero. 

Eso en cuanto a los elementos 
estáticos. Pero lo más importante 
de cualquier formato son los ele¬ 
mentos dinámicos, es decir, aqué¬ 
llos que referencian datos de nues¬ 
tro fichero. Para ello hay que de¬ 
cirle al programa qué campo de 
cada registro debe utilizar, en qué 
línea de la pantalla se debe comen¬ 
zar la impresión, si usamos o no 
Micro-Print, columna de inicio. 


Unos formatos de impresión 
flexibles son el alma de 
cualquier Base de datos 
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Los formatos son bastante gene¬ 
rales, ya que permiten mostrar des¬ 
de 1 hasta 22 registros en cada 
pantalla, y en cualquier orden, ya 
que el campo de indexación es ar¬ 
bitrario. A partir de las caracterís¬ 
ticas generales, se pueden añadir 


Los formatos resultan muy 
complicados, pero 
aprovechan al límite las 
posibilidades del Spectrum. 


anchura y número de líneas, atri¬ 
butos de color, si queremos o no 
que nuestro texto vaya enmarcado 
con el color de papel elegido y, fi¬ 
nalmente, el texto que debe escri¬ 
biré! programa si el campo indica¬ 
do está ausente de un registro. 

Otro elemento delicado de una 
Base de datos es la facilidad y flexi¬ 
bilidad con que se puede definir la 
estructura de campos de un fiche¬ 
ro. MasterFile resulta potente pero 
confuso, como en otros casos. Para 
definir un fichero, nos dice el ma¬ 
nual, debemos comenzar por crear 
un fichero vacio. Esto implica bo¬ 
rrar todas las definiciones de for¬ 
matos y campos de datos. 

A continuación, la opción N del 
menú principal nos permite alterar 
las definiciones de campos. Como 
en ese momento no tendremos 
ninguna activa, debemos pulsar A 
(añadir) para introducir nombres 
de campos. Cada campo se identi¬ 
fica por una letra, y se puede 
acompañar por un nombre de has¬ 
ta 128 caracteres, lo que nos per¬ 
mitirá recordarlos con más facili¬ 
dad. Una vez definidos todos los 
nombres de nuestros datos pode¬ 
mos pasar a definir o alterar, como 
se mostró anteriormente, los for¬ 
matos de impresión. 

Otras opciones en el menú prin¬ 
cipal permiten listar todos los for¬ 
matos eligiendo uno de ellos, car¬ 
gar y salvar ficheros, invertir la se¬ 
lección de registros y borrar los re¬ 
gistros seleccionados. Las restantes 
opciones son más complicadas, in¬ 
cluyendo las opciones ya comenta¬ 
das de editar formatos y nombres 
de campos, además de menús de 
búsqueda, presentación visual, etc. 

El menú de presentación visual, 
al que se accede pulsando D en el 
menú principal, permite ver el fi¬ 
chero mediante el primer formato 
que definimos, o el último que se 
ha utilizado. La tecla Q muestra 
las posibles opciones en este 
modo, bastando otra pulsación de 
la misma tecla para volver a ver los 
registros en pantalla. Pulsando N 
pasamos a la siguiente página de 
listado. 
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Las teclas 1-9 permiten avanzar 
de uno a nueve registros. En ia ver¬ 
sión 09. la tecla 0 permite volver 
atrás un registro. B vuelve al co¬ 
mienzo del fichero. Si pulsamos U, 
el programa pasa a modo edición 
con el registro que aparece en la 
parte superior de la pantalla, y E 
nos permite borrar el registro en la 
misma posición. La letra O dese¬ 
lecciona el registro en la parte alta 
de la pantalla, y C crea una copia 
situándola a continuación. 

R se utiliza para cambiar el for¬ 
mato, manteniendo activo el regis¬ 
tro superior. Resulta muy útil para 
buscar mediante un formato con 
20 registros por página y, una vez 
hemos situado en posición el regis¬ 
tro deseado, cambiar a un formato 
más amplio, que muestre la totali¬ 
dad de los datos. En este momento 
nos resulta útil saber que, pulsan¬ 
do P, se obtiene una copia de la 
pantalla, y que, si a continuación 
tecleamos A, cada nueva página 
que se muestre irá a la impresora. 

Búsqueda en nuestro fichero 

De poco sirve tener un fichero 
en el ordenador si tenemos que re¬ 


pasar registro a registro para en¬ 
contrar el dato que nos interesa. 
Por ello, el menú principal dispo¬ 
ne de la opción S para buscar y se¬ 
leccionar parte de las fichas de 
nuestro archivo. Primero debemos 
indicarle si queremos que seleccio¬ 
ne a partir de todo el fichero o bien 
a partir de las fichas que habíamos 
seleccionados previamente. Des¬ 
pués el programa nos pregunta el 
campo en el que debe realizar la 
selección, y si ésta debe ser n ¿me¬ 
nea o alfanumérica. Para cada 
caso existen varios tipos de com¬ 
paraciones: mayor, igual, menor, 
distinto y, en el caso de caracteres, 
ocurrencia de una palabra en un 
campo. Para finalizar la búsqueda, 


Se pueden seleccionar y 
ordenar ficheros con todas 
las opciones razonables. 


mm 


el programa nos pregunta qué ca¬ 
dena o número debe utilizar para 
la comparación, y nos devuelve el 
número de fichas seleccionadas 
tras la búsqueda. 

Otra opción interesante del pro¬ 
grama es la opción T, que calcula 
las sumas y promedios de los cam¬ 
pos numéricos del fichero. Si du¬ 
rante el proceso se encuentra algún 
campo no numérico, el programa 
nos da la opción de ignorarlo o co¬ 
rregir el valor. Sí el campo está au¬ 
sente, se le asigna un valor de cero 
para calcular el promedio. Sólo se 
pueden acumular los valores de un 
campo mediante este comando, 
por lo que, si queremos realizar 
operaciones más complicadas de¬ 
beremos introducir un programa 
Basic que haga la operación reque¬ 
rida. 


A pesar de la versatilidad del 
programa, existen casos en que re¬ 
sulta muy útil realizar cálculos con 
datos de varios campos de un mis¬ 
mo registro, o insertar campos con 
un valor determinado en función 
del valor de otros. MasterFile per¬ 
mite ambas posibilidades, y lo 
hace mediante un esquema senci¬ 
llo y eficaz. Pulsando U en el 
menú principal se obtiene el acce¬ 
so al programa del usuario, que 
debe seguir el siguiente esquema: 

En primer lugar, el programa le 
da control a la línea 4900, una sola 
vez, antes de procesar eí fichero. 
Este es un lugar interesante para 
aquellas tareas, como imcializa- 
ción de variables, que sólo deben 
hacerse una vez. Como el resto de 
los bloques, debe acabarse esta 
parte con la instrucción GOTO 
USR R. 

A continuación se le da control 
a la línea 5000 una vez para cada 
registro, antes de procesar los cam¬ 
pos; esto permite inicializar las va¬ 
riables que varíen en cada registro. 


Incluyendo un programa 
Basic, MasterFile se 
convierte en un programa 
a la medida 








































La línea 6000 se ejecuta un vez por 
cada campo. Al entrar, la variable 
C$ contiene el campo, con la refe¬ 
rencia en C$( 1) y los datos en C${2 
to). 

La línea 7000 se ejecuta cuando 
se han procesado todos los campos 
del registro, y en ella se puede 
crear un nuevo campo o no, según 
el valor que le demos a C$. Si 
CS=“”, el registro queda como es¬ 
taba; si C$(l) es un referencia de 
campo, y c$(2 to) está vacío, en¬ 
tonces el programa borra el campo 
indicado; si C$( 1) es una referencia 


La impresión se realiza 
siempre a través de la 
instrucción COP Y. 


^i 

de campo y c$(2 to) contiene da¬ 
tos, el campo indicado se crea o ac¬ 
tualiza. Como en los demás casos, 
el retorno al programa se realiza 
mediante GOTO USR R, 



En la versión 9 y siguientes la lí¬ 
nea 9000 se ejecuta después de 
procesar todo el fichero, lo que 
permite imprimir los resultados fi¬ 
nales o poner a cero algunas varia¬ 
bles. El orden de paso de los regis¬ 
tros a través del programa de usua¬ 
rio es el de inserción. 

Adaptación a microdríve 

o impresora 

Para facilitar la adaptación a 
microdríve o diskette del progra¬ 
ma. todas las operaciones de entra¬ 
da/salida se realizan desde BASIC. 
Por tanto, el programa resulta fá¬ 
cilmente adaptable, ya que sus 
operaciones de cntrada/salida se 
reducen a variables, código máqui¬ 
na o el propio programa. Por ello, 
el programa no saca provecho de 
las posibilidades de acceso aleato¬ 
rio que ofrecen estos dispositivos. 

La impresión se realiza siempre 
a través de la instrucción COPY. 
El programa funcionará correcta¬ 
mente sólo con interfaces que rea¬ 
licen copias de pantalla. Además, 
el código máquina de impresora 
no debe residir en la misma zona 
de memoria que el programa, por 
lo que la compatibilidad resulta 
más difícil. Un consejo: prueba an¬ 
tes de comprare! programa que tu 
impresora podrá obtener resulta¬ 
dos con él. 
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Base de datos, 

algo difícil de manejar 

Sin ánimo de exagerar, se puede 
decir que MasterFile es una de las 


mejores Bases de datos que existen 
para Spectrum. Por otra parte, su 
uso resulta complicado por la va¬ 
riedad de opciones y la estructura 
de menús, que hace difícil saber en 
qué opción del programa nos en¬ 


contramos. Para quienes no tengan 
miedo de estudiar cuidadosamente 
las instrucciones y experimentar, 
MasteFile les ofrece la posibilidad 
de gestionar sus ficheros de datos 
de una manera muy flexible. 
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En teoría de probabilidades y en 
muchas otras aplicaciones es muy 
frecuente la utilización de factoria¬ 
les. Este sencillo cálculo, que se 
define como n! = n * (n—1) * ( n-2) 
*2*1, tiene la característica de 
desbordar rápidamente la capaci¬ 
dad del ordenador. En efecto, el 
factorial de un número tan peque¬ 
ño como 30 da la desorbitante cifra 
de 2,65 * 10 T 32. El de 34 provoca 
ya un error del tipo «Number too 
big» si intentamos calcularlo sin 
recurrir a ninguna argucia. Esto no 


sólo ocurre en el Speetrum sino en 
cualquier otro ordenador. Por si a 
alquien le consuela, el famoso PC 
de IBM (con un procesador 8088 
de 16 bits) también falla al llegar a 
34, la única diferencia es que en 
este caso el informe es «Overflow». 
El Commodore 64 se queda igual¬ 
mente en 34, mientras que los 
MSX van algo más lejos: la pala¬ 
bra «Overflow» aparecer al llegar a 
49. El programa utilizado para esta 
sencilla prueba es: 


10 

LET OI 


* 

1*5 

FOR N=1 TO 

1OO 

20 

PRINT H 


25 

LET C=C*N 


30 

NEXT N 



Con el QL de Sinclair tuvimos 
que «alargar» el bucle FOR- 
NEXT hasta 1000, pues batió to¬ 
das las marcas llegando sin proble¬ 
mas hasta el factorial de 301. 

Del mismo modo que un orde¬ 
nador sabe multiplicar porque tie¬ 
ne en su memoria ROM un pro¬ 
grama en código máquina que le 
indica cómo hacerlo, también po¬ 
demos enseñarle a calcular facto¬ 
riales de números considerable¬ 
mente elevados. Sólo se necesita el 
programa adecuado, Con el que 
presentamos en estas páginas, el 
máximo alcanzable no depende 
tanto del Speetrum como de nues¬ 
tra propia paciencia. Por ejemplo, 
invierte 3 minutos 15 segundos en 
calcular las 158 cifras de 100! y 
unos 70 minutos para las 615 de 
300!. El método empleado se basa 
en la aproximación de Stirling, 
matemático inglés del siglo XVIII 
famoso por su fórmula para el 

cálculo de factoriales:_ 

n! = n n e-" V2 an 

El programa obtiene primero el 
número de ceros de n! mediante la 
subrutina que comienza en la línea 
340. A continuación, calcula el 
número de cifras utilizando el lo¬ 
garitmo de la aproximación de 
Stirling y, por último, halla el re¬ 
sultado mediante una serie de bu¬ 
cles FOR-NEXT que almacenan 
los resultados parciales en la ma¬ 
triz b. El resultado final puede al¬ 
macenarse en la variable alfanu- 
mérica nS. 
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1 REM FACTORIAL 

2 REM 

3 REM CON TODAS LAS CIFRAS 

4 REM 

5 REM SPECTRUM 16/4BK 

6 REM 

7 REM SEPTIEMBRE 1984 

8 REM 

9 REM 

10 REM CONSTANTINO CORTINA 

11 REM 

12 REM 

20 INPUT "Factorial de ? ";n 
30 IF n<0 OR n-INT n<>0 THEN 
60 TO 20 

40 LET rvf =n: GO SUB 350 
50 LET g=lNT (l+nc/6) 

60 REM c= Logaritmo de la 

aproximación de Stirling 
70 LET c=INT (Í(n+.5)#LN n-n+. 
5*LN (2 # PI)>/LN 10) 

80 LET k= INT (l+c/6) 

90 DIM aík): DIM b(k) 

100 LET a < 1 > **1 s LET p=l 
110 FOR 1=1 TO k 
120 LET a(i)=a(i)*p: IF a(i)*0 
AND i>g THEN GO TO 150 
130 LET b(i)»INT ía<i>/10e5) 

140 NEXT i 

150 FOR í #*2 TO k 

160 LET a(i)-a(i)+bíi“l) 

170 NEXT i 
180 FOR i-1 TO k 
190 LET a<i)“a(i)~10e5*INT <a<i 
)/10e5) 

200 NEXT i 

210 IF p<)n THEN LET p=p+ls GO 
TO 110 

220 BEEP .1,0 
230 PRINT n; " ! *=" 

240 FOR i=k TO 1 STEP -1 


250 LET a$=STR* a(i) 

260 IF i=k THEN GO TO 300 
270 LET afc* "00000"+a$ 

280 LET j«LEN a* 

290 LET at=at< j-5 TO j) 

300 PRINT a* 

310 NEXT i 

320 INPUT "Quieres guardarlo en 
n* ? "sb* 

330 IF b$<l>*"s" THEN GO SUB 5 
00 

335 PRINT i GO TO 20 
340 REM nc= Numero de ceros 
de n ! 

350 LET nc=0 

360 LET co=lNT (n-f/5) 

370 IF co=0 THEN RETURN 

380 LET nc~nc+co 

390 LET n-f a co 

400 GO TO 360 

500 LET n$=STRÍ n+"!= B 

510 FOR i=k TO 1 STEP -1 

520 LET a*=STRí a(i) 

530 IF i=k THEN GO TO 570 
540 LET a*«"00000"+a* 

550 LET j-LEN a$ 

560 LET a*=a$(j-5 TO ¿) 

570 LET nt=ní+aí 
580 NEXT i 
590 PRINT *n$ 

600 RETURN 


100!•933262154439441526816992388 
56266700490715968264381621468592 
96389521759999322991560894146397 
61565182862536979208272237582511 
85210916864000000000000000000000 
000 
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Nuestro amigo Gusánez está 
ya harto de merodear por la 
revista y ha decidido 
largarse a la playa con su 
amigo el «enano». Pero para 
ello necesita vuestra ayuda: 
tenéis que guiar sus pasos 
para que encuentre a su 
amigo sortear los diversos 
peligros que encontrará en su 
camino. Sólo vosotros podéis 
conseguir que Gusánez se 
vaya de vacaciones y nos deje 
respirar un poco en la 
redacción. 
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Concretamos un poco más: para 
que Gus pueda salir airoso de su 
aventura debe recoger seis objetos: 
Microordenador Spectrum. 
Maleta con la inicial G. 

Unas gafas de sol. 

Unas galas de bucear. 

Un radio-cassette. 

Una revista TODOSPEC- 
TRUM. 


Además nuestro querido amigo 
tiene que encontrar a su querido 
amigo. Las formas de encontrarlo 
son variadas. Nos explicamos. 

Forma 1: El enano se mueve 
constantemente por las distintas 
pantallas, pero el Gus no lo sabe. 
Si logra encontrar su pista y segu ir¬ 
la podrá hacerse con él. 

Forma 2: Logra que el enano. 


cuando se presente de improviso, 
logre cruzar de arriba abajo la pan¬ 
talla a través de unos bloques que 
el Gus podrá mover a izquierda y 
derecha. 

La única forma de conseguir la 
posición dei enano en el laberinto 
es consultare! mapa, 

Pero igual que varias formas de 
encontrar al enano, hay una de 
















ra reseteo 


Los caracteres que aparecen subrayados en el 
listado corresponden a caracteres gráficos del or¬ 
denador, 


10 BQRDER 5i PAPER 7: INK 2í B 
RIGHT Os CLS : RANDÜM1ZE O 
20 POKE 23658,0 s Gü SUB 3730 
3O LET cr=Ú: LE"T vb=0: LET nm= 
O: LET k 1 =25: LET :<2=1: LET x3~l 
8: LET x4—3s LET di=0 

40 LET wí="": LET nx=0: LET ch 
-0: LET d=300: LET dl=0: Din a(2 
0,20): LET a=18: LET b=23 

50 LET o»« M m» : Din p$(7>: LET 
ro=l: LET co=2: LET a1=0: LET bl 
=0 

60 LET p>:=0: LET ti*15: LET t = 
0: LET pa=7: LET in=l: LET obl=0 
: LET en=0: LET w=63: LET g$='' rb 

": LET h$=" CD" 

70 60 SUB 3780: GO SUB 1530 
80 GO SUB 3710 

90 LET w=63: GO SUB 2690: GO S 
UB 750 

100 GO SUB 480 

110 LET e$=INKEY$ 

120 IF rNKEYíO"" THEN LET e$= 
INKEY$ 

130 IF e$="z" THEN GO SUB 320: 

GO TO 120 

140 IF e$='‘x" THEN GO SUB 360: 


- 


perderlo: Los grandes almacenes. 
Aquí si no logra el Gus encontrar 
el objeto escondido se quedará sin 
su amigo. 

Una vez tengas los seis objetos y 
el enano, y superados los puntos 
propuestos, deberás acertar la cla¬ 
ve secreta. Esta, a través del juego, 
se ha ido visualizando en la parte 
superior de la pantalla letra a letra 



LH 5 UflCñCIONES Di 

MHslül 

* GL'SRNEZ se mueue con z,x,p 

3C PfiRñ CON OTPh TECLA 


# -fr * * * * 


* CUL>E -Ce 6 OBJETOS DIFERENTES 

* P-L ENANO / CUIDADO CON 
LUo jRRNDES hLMhCENES 

~ OONL'IERTE A GUS EN UN COCHE 

LM ultima flor y... 

ALERTANDO LA CLAVE SECRETA 




¡ 






























pero sin ningún orden e incluso re¬ 
petidas. Para acertar la palabra co¬ 
rrecta deberás, en un tiempo deter¬ 
minado, pulsar letra a letra hasta 
completarla. Si te equivocas pulsa 
DELETE y empieza de nuevo 


Gusúnez comienza a 
perder puntos en cuanto 
se le sitúa sobre una 
superficie oscura. 


aunque el tiempo sigue su curso. 

Si acierta la clave el Gus se con¬ 
vierte en coche y empezará a gas¬ 
tar los puntos acumulados hasta el 
momento. En el indicador de posi¬ 
ción se verá un punto parpadeante 


a 


GO Tü 120 

150 IF THEN GÜ SUB 400¡ 

■ GG TO 120 

160 IF e*="1" THEN GG SUB 440: 
GO TO 120 

170 IF (pOpl GR oOol) AND ch = 
O AND a (p, o) <“O THEN LEI ti=ti- 
1: FRINT BRIGHT 1 ; AT 19,29;ti 
" i BEEP .01,p+40; IF ti<=0 THEN 
60 SUB 1410 


310 REM Movimiento gusanez 
320 IF ATTR ía,b)=12Ü THEN GG 
SUB 530 

330 IF ATTR <a,b)>=66 OR ATTR ( 
a~l,b-í>>=66 THEN GG TQ 170 
340 IF b<=0 THEN BEEP .01,20: 
LET p=p-1: LET b=xl: GO SUB 750: 
60 SUB 4B0 

350 GÜ SUB 480: LET q$=" GF" ¡ L 
ET "i LET b=b-1: GO SUB 4 


180 IF q$ =" GF 11 AND (ATTR <a,b+ 
1)058 OR ATTR (a,b+2>>58 GR ATT 
R U-i,b)>58 OR ATTR <a-l,b+l)>5 

8) THEN GG SUB 500 

190 IF ” AND (ATTR (a,b) 

058 OR ATTR (a, b + 1 >058 OR ATTR 

<a-l ,b+1)< >58 GR ATTR <a-l,b+2) 
058) THEN GO SUB 500 
200 LET en 1=RND*100: IF enl>90 
THEN GO SUB 3120 
210 IF “ AND a=al AND b+ 

2=b1 THEN GQ SUB 2210 
220 IF □ $= " GF" AND a*al AND b = 
b1 THEN GD SUB 2210 
230 GO TO 110 
240 IF ch=1 THEN RETURN 
250 LET nu=INT <3+RND*7> 

wmmm-' next n 

270 FRINT FLASH 1;AT 21,13j"C0 
GE LA ULTIMA": FQR n-i TD na: BE 
EP .01,45+n: LET cl“INT (4+RNDK1 
4): LET d1-INT (2+RND*26>: FOR m 
=7 TO 2+RND*4 STEP -li FRINT IN 
VERSE -1 5 PAPER 1; INK m; AT el, di 
; " ,j" ¡ NEXT m: NEXT n 
280 LET al=cl: LET bl=dl: bO SU 


30: RETURN 

360 IF ATTR (a,b+2)=120 THEN G 
□SUB 550 

370 IF b>=26 THEN BEEP .01,20: 
LET p=p+1: LET b-x2: GO SUB 750 
: GÜ SUB 480 

380 IF ATTR (a,b+2)>=66 ÜR ATTR 
(a-1,b+3)>=66 THEN GO TO 170 
390 GO SUB 480: LET q$= " flB " i L 
ET h$ = " CD" : LET b=b+l: GO SUB 4 
80: RETURN • ■ 

400 IF h»<1)■ "X" THEN IF ATTR 
(a-2,b)>=66 OR ATTR (a-2,b+1)>=ó 
6 OR ATTR <a-l,b+2>>-6ó THEN 60 
TO 170 

410 IF fi*(l>=" " THEN IF ATTR 
ía-1,b)>—66 OR ATTR (a-2,b+l)>=ó 
6'GR ATTR (a-2,b+2)>-66 THEN GG 
TG 170 

420 IF a<=2 THEN BEEP .01,20: 
LET o=o-ls LET a=x3: 60 SUB 750: 
GO SUB 480 

430 GG SUB 480: LET a=a-l: GO S 
UB 480: RETURN 

440 IF h*(1)=" " THEN IF ATTR 
(a+l,b)>=66 ÜR ATTR ía+l,b+l>>=6 
6 OR ATTR (a, b+2)>=66 THEN GÜ T 
O 170 


B 650 

290 IF d>=to THEN 
300 RETURN 


60 SUB 570 


450 IF h*(1)= " I" THEN IF ATTR 
(a,b>>=66 ÜR ATTR <a+l ,b+1>>=66 
□R ATTR (a+1,b+2)>=66 THEN GÜ T 


























al cual te deberás dirigir. 

Si no aciertas dicha clave el or¬ 
denador elegirá otra nueva y modi¬ 
ficará los puntos a los que tendrás 
que llegar de nuevo. 

Con estas instrucciones podrás 


Para coger objetos 
basta situarlos bajo la 
narizota de Gusánez y 
detener su movimiento. 


llegar a la playa, aunque hay mu¬ 
chas más cosas que tendrás que 
descubrir junto a tu amigo Gusá¬ 
nez. Felices vacaciones. 

José Carlos Tomás 48K 


I 


D ISO 

460 IF a>=19 THEN BEEF‘ .01,20: 
LET 0=0+1: LET 4: GO SUB 750 
: Gü SUB 460 

470 GD SUB 460: LET a=a+l: GQ S 
UB 480: RETURN 

480 IF ch=1 THEN LET di=50: GO 
5UB 1950 

490 PRINT PAPER 6; FLASH S; BR 
IGHT 8? INK 8; OVER 1; AT a,b¡g$; 
AT a-l,b;h*j BEEP .0001,60: RETU 
RIM 

500 LET d=d—50: PRINT AT 21,7;d 
; “ 11 : BEEP .01, a: BEEP . 01, b: Fü 
R n=0 TO 5: BOEDER m NEXT n 

510 > IF d < = 0 THEN FOR n=l TÜ 60: 
BE EP . Ql,n PR INT OUER ijfiT 21, 
0; : NEXT H; GO TO 

3550 

520 RETURN 

530 IF b-4<=1 THEN RETURN 
540 FOR n=b—5 TO b-6 STEP -1: P 


RINT AT a. n: 11 RRRRR 11 : BEEP .001, 
n+30: NEXT n: PRINT BRIGHT 1; I 
NK O; PAPER 7;AT a, n + 1; » rrrrr " ; 
BRIGHT 0;AT a,n+3;" "s RETURN 
550 IF b+7>=29 THEN RETURN 
560 FOR n=b+2 TO b+4: PRINT AT 
a, nj " RRRRR " : BEEP .001, n+30: NE 
XT ns PRINT BRIGHT 1; INK 0; PA 
PER 7; AT a.n; " RRRRR "; BRIGHT O; A 
T *,n+2; M RETURN 
570 REM Puertas 
580 IF ch=1 THEN RETURN 
590 LET pul=INT \2+RND*16): FOR 
n=pul TO pul+1: PRINT AT n,0; M 

NEXT n: BEEP .01,pul 
600 LET pu2=INT (2+RND*16): FGR 
n=pu2 TG pu2+l: PRINT AT n,2B;" 

": NEXT n: BEEP .01,pu2 
610 LET pu3=INT <2+RND*16>: PRI 
NT AT 1,pu3;" BEEP .01,pu3 

620 LET pu4=INT <2+RND*16): PRI 
NT AT 19, pu4;" "¡ BEEP .01,pu4 


GUSANEZ 


por C Tmás 


i 




Parece MEMflftA... 
E5TAm BK! 

TENóO (JA/ MÍC¡?0-Of?OOJAm? 
ÍMPfcSOl?A... IHTERfífcES..,. 7 
^ Sé PRoOfiMAR Ü J 8A5JC-... 


ENC/WfA EL FUTURO 

ricNóiéóico <9 üe se aprokí- 

A? A. CAÍA i/£2 MAS. 

Soy un oosrwo De mí 

EVOCA. 
















































630 SO SUB 990 
640 GO SUB 1200; RETURN 
650 IF ch=l THEN RETURN 
660 LET pa=INT íRND#7) ; EOF; n = l 
TO 19*. PRINT AT n,Oj¡ BRIGHT 1} 
PAPER pa; " F“ ; AT n.28; "ñ" ¡ NEXT n 


670 PRINT AT 1,1; 
ER pa, 


BRIGHT 1,; PÑF 


|m ,hT 1 9,1; “■ 




680 RETURN 

690 IF ch=l THEN RETURN 
700 GO SUB 900: LET di=0: FOR n 
= 1 TO 19: PRI NT AT n,0; INK 6 ; P 
APER 5; BRIGHT 1; 11 JR*' ; AT n, 28: » R" 
: NEXT n 


710 >PRINT AT 1,1; INK 6, PAPER 
S; BRIGHT i; “RRRRRRRRRRRRRRRRRRR 
RRRRRRRR- ¿RT 19,1 ;" RRRRRRRRRRSrR 
rrprrrprrRrrrr " 


720 PRINT FLASH 1; AT 21,13;"Cü 
GE LA ULTIMA": FOR m=l TQ p: LET 

al=lNT (3+RNDÍ15): LET bl=INT C 
2+RND*25): FOR n=5 TO 7: BEEP .O 
1,n—10: FRINT OUER 1; INK n;AT 
al,b 1; "O" s NEXT n: NEXT m: LET o 

,_i" 

730 RETURN 

740 REM Pantalla laberinto 

750 LET p;<«O: LET cr-O: LET di = 
O: GO SUB 3120: GG SUB 900 

760 IF a(p,oi=20 THEN Gü TO 24 
20 

770 IF p=pl AND o=o1 THEN LET 
b=24: GO SUB 2740: GO SUB 990: R 
ETURN 

780 GO SUB 1040 

790 IF a(p,o)=40 THEN Gü SUB 3 





430i RETURN 

800 IF' a < p, o-- 1 = 1 THEN GÜ SUB 32 
50: GO SUB 1070: GO SUB 990: RET 
URM , 

810 PRINT INVERSE 1;;AT 20,0;" 

-> “;to;" puntos " ; ".<-" 

820 IF a(p,o)=8 THEN GO SUB 16 
20: GO SUB 650: Gü SUB, 570 
* 830 IF <a(p,o)=-l OR a(p,o)*-2) 

ANO Oh =0 THEN LET in=RND*7: LET 
pa=RN0*7 FOR n=l TO 19: PRINT 
AT n,0; INK in; PAPER Pa; “RRRRRR 
RRRRRRRRRRRRRRRRRRRRRRR" : NEXT n 

: Gü SUB 660: GO SUB 570: Gü SUB 
1320: RETURN 

840 IF a (p, o) =~5 THEN GO SUB fe 
50: GO SUB 570: RETURN 
850 IF a(p,o)>=9 THEN LET q*=C 
HRt (65+nm): GO SUB 240 
SfeO IF a<p,o)=-3 THEN GO SUB fe 
90: GO SUB 570: RETURN 
870 IF a<É>,o)=0 THEN Gü SUB 65 
O: GO SUB 1340: GO SUB 570: RETU 
RN 

880 IF a(p,o)<B AND a(p,o) THEN 
GO SUB 650: GO SUB 570: GO SUB 
1070 

890 RETURN 

900 FOR n=l TÜ 21: PRINT AT n,O 

■ M 11 

: NEXT n 

910 LET ti=15: FOR n“17 TO 21: 
PRINT AT n,29; BRIGHT 1; INK n-1 
6; " MUÍ " r, NEXT n 
920 IF p=a3 AND o=b3 THEN LET 
en=l: LET t=l 

930 FRINT AT 21,0; INK 6; PAPER 
1; BRIGHT 1;"PUNTOSd: FOR n= 
14 TO 16: PRINT AT n,29;'* ": N 

EXT n 

940 PL.ÜT 232,40: DRAW 23,0: DRA 
W 0,23: DRAW -23,0: DRAW 0,-23 
950 PLGT 233+p,¿2-o: PLOT INK 
O;233+p1,62-o1 

960 IF en=l THEN PRINT AT 17,3 
O: FLASH 1; BRIGHT 1: " P“ 

970 IF ch=1 THEN PLOT FLASH 1 
;233+a2,62-fe>2: Gü SUB 990 
’930 RETURN 

990>IF o < =1 THEN LET cr»Cf + l: P 
RINT BRIGHT 1,AT 1,0,"QQGQQQQQQü 
oooooooooooooeoDQOo 1 '-" “ 































¡APROVECHA AL MAXIMO TU SPECTRUM! 

Ahora, a tu alcance, dos obras fundamentales para que podáis sacar todo el partido posible a vuestro ordenador 



Esta publicación está diseñada para guiar al nuevo 
usuario del ZX Spectrum desde el momento que el 
ordenador se conecta hasta conseguir una base sufi¬ 
ciente de la programación BASIC. 

Incluye temas como: 

• Introducción al teclado. 

• Instrumentos útiles para la programación. 

• Uso de comandos fáciles. 

• Como construir un programa. 

• Técnicas de programación. 

• Aplicaciones prácticas. 

lOOpags. - 750 PÍAS. 


Este libro, escrito en estilo ameno y práctico, está 
dirigido a todos aquellos usuarios que han dejado 
atras la etapa de los juegos y necesitan adentrarse 
en el fabuloso mundo de la programación. 

El temario incluye: 

• Reglas y herramientas def BASIC. 

• La técnica de los organigramas. 

• Cómo planificar un programa. 

• El mundo de las rutinas. 

• Variables y'cadenas. 

• Funciones matemáticas usuales. 

109pegs. - 750 PTAS. 


CUPON DE PEDIDO 

^ Recortaeslecupón debidamente cumplimentado y envíelo a INFOOIS. S. A. C/ BRAVO MURlLLO. 377-5.° A - 28020 MADRID 

Si. envíenme el (los) libro(s) que a continuación detallo al precio de 750 ptas. libro, más 100 ptas en concepto de 
gastos de embalaje y envío. 

El importe lo abonare: POR CHEQUE □ CONTRAREEMBOLSO □ CON TARJETA DE CREDITO (VISA □) 
(AMERICAN EXPRESS O} (INTERBANK □) 

NLimero de mi tarjeta 
TITULO__ 


NOMBRE 

CALLE __ 

CIUDAD_ 

PROVINCIA 


Firma, 






/ 




































































Vi 


reg íamos ^ 


1000 IF p< = l THEN LET cr=cr+l: 

FOR n-1 TO 19: PRINT ' BRIGHT 1;A 

T n.0¡ 11 O m ¡ NEXT n 

1010 IF □>=20 THEN LET cr=cr+l: 

PRINT BRIGHT l;RT ,G;"QQQQQQQG 
OOÓOOQOQOOOOQOOOOOQQO" 

1020 IF p >=20 THEN LET cr=cr+l: 

POR n=1 TO 19: PRINT BRIGHT 1; 

AT n. 28: 11 Q" : NEXT n 
1030 RETURN 

1040 FOR n=w TO w-2 STEP -ls F'LÜ 
T ÜVER 1; INK 8; PAPER 8;232,ns 
DRAW OVER 1; INK 8; PAPER 8; 2, 

0: BEEP .01,00: NEXT n: LET w=w- 
3: IF w<64 THEN G0 SUB 2900 
1050 IF w=80 THEN FOR n=l TO 20 
: BEEP .05,30: PRINT OVER 1; AT 
O, 12; " T T T T T T T" ; NEXT ' n 

1060 RETURN 
1070 REM Objeto 

1080 IF a íp,o)=1 THEN LET oí = M T 

M : LET al=16: LET bl=INT (11+RND 

*8): PRINT PAPER 4; INK 2;AT al • 

, b 1; 11 T 1 ' ¡ RETURN 

1090 IF ch =1 THEN RETURN 

1100 IF a < p, o > =0 THEN GO SUB 13 

40: RETURN 

1110 60 SUB 3380 

1120 IF a íp,o)=2 THEN LET □$="o 
": PRINI INK 1; AT a 1,b 1 j a* 

1130 IF a(p,o)=3 THEN LET o$ = "N 
PRINT INK 3;AT al,bl;o$ 

1140 IF aíp,o)=4 THEN LET a$= M m 
PRINT AT al,bl;o$ 

1150 IF' a. (p, o) =5 THEN LET o$ =" L_ 

"s PRINT INK 4;AT ai, ti i; o* 

1160 IF aíp,o)=ó THEN LET o$="K 
"i PRINT INK 5;AT al,bl ja* 

1170 IF a í p,o)=7 THEN LET o$ = "U 
PRINT INK 1; AT al,bl;oí 
1180 IF a3=p AND b3=o THEN LET 
en=l: PRINT AT a-l,b;" 11 
1190 BEEP .05,30: RETURN 
1200 IF en=1 THEN LET br=0 
1210 IF en=0 THEN LET br=l 
1220 IF p=l THEN GG TO 1240 
1230 IF a íp-1,□)=-5 THEN LET cr 
=cr+l; FQR n=pul TG pul+1: PRINT 
BRIGHT br; INK 1; AT n.O: 11 P" i N 
EXT ni BEEP .01,pul 
1240 IF p =20 THEN GO TO 1260 
11250 IF a íp + 1,o)»-S THEN LET cr 


=cr +1; FOR n=pu2 TO pu2+l: PRINT 
BRIGHT br; INK 1;AT n.2S: “ P" ¡ 
NEXT n: BEEP .01,pu2 
1260 IF o=l THEN Gü Tü 1290 

1270 IF a íp,o—l> =-5 THEN LET cr 
=cr + 1: PRTRT ' BRIGHT br; INK 1;A 
T 1. p u3: 11 FFF" : BEEP . 01,pu3 
1280 IP 0=20 THEN RETURN 
1290 IF a(p,o+1)=-5 THEN LET cr 
=cr+l: PRINT BRIGHT br; INK 1;A 
T 19, pu4; “PPP"i BEEP -01,pu4 
1300 IF cr>=4 AND br=l AND ch=0 
THEN GÜ SUB 480: PRINT AT 11,10 
; FLASH 1; 11 ! ATRAPADO ! " : BEEP 5, - 
40: GO TO 3550 
1310 LET cr=0: RETURN 
1320 PLGT 8,88: DRAW BRIGHT 1; 

INK in; PAPER in;208,O,-2.4+(RND 
*4.8) 

1330 RETURN 

1340 LET ds=INT <RND* *3>: IF NOT 
ds THEN GO TO 1380 
1350 LET d x = INT (8+RND*210) : PLD 
T dx, 24: DRAW INK 7; BRIGHT ljO 
, 132 

1360 BEEP .05,50: LET dy=INT (24 
+RND*128): PLOT 8,dy: DRAW INK 
7; BRIGHT 1;210,0 
1370 BEEP .05,55: RETURN 
1380 LET pK-li LET dz =INT (2+RND 
*24): PRINT BRIGHT 1; INK 1; PA 
PER 7; AT 2, dz; ” P" ; AT 3. dz-3: 11 h 
F“ ;AT 19,dz-3; "ñ F" : FDR n=4 
TÜ 18: LET dy=INT (4+RND*17> 

1390 PRINT BRIGHT 1; INK O; PAR 
ER 7; AT n. dy; 11 rrrrr" ; BRIGHT 0;A 
T n,dy+2;" ": BEEP .003,38: NEXT 
n 

1400 RETURN 

1410 IF p x = 1 THEN LET px=Os GG 
TÜ 1440 

1420 IF a <p,o)=™3 THEN LET dl = l 
000: bü SUB 1950: LET ti=15: LET 
a(p,o)=INT (RND*20): RETURN 
1430 IF a (p, o) 0-3 THEN LET ti = 
15: GÜ SUB 3050: RETURN 
1440 PRINT AT 2.dz: ÜVER 1; " P" : 
FOR n=3 TÜ 17 

1450 PRINT AT n,dz; BRIGHT 1; ” P“ 

: BEEP . l,n: PRINT BRIGHT 1; DV 
ER 1;AT n, dz ; " P" 

1460 IF ATTR (n+1,dz)<>120 THEN 






























Gü SUB 1510: RETURN 
1470 NEXT n 

1480 FOR n=1 TO 60 STEP 3: PRINT 
GVER 1;AT 19,dz; n P": BEEP .01, 
22: NEXT n 

1490 IF en=1 THEN LET di=5000: 
Gü SUB 1920;.LET ti=15: RETURN 
1500 LET ti=15: LET en=l: LET t= 
1: GO SUB 920: RETURN 
1310 FOR m=d z TO 27: PRINT OVER 
1;AT n +1,m; »■ P" : BEEP .001,m: PR 
INT DVER 1;AT n + 1. m; " p" : NEXT m 
1520 LET di=(n-2)* 100: GO SUB 19 
20: LET ti=15: LET a<p,o)=-l: RE 
TURN 

1530 REM Matriz laberinto 

1540 POR m=1 TO 20: FOR n=l TO 2 

O 

1550 LET a(m,,n) = INT (~3+RND*23) 

1560 BÜRDER 1: BORDER 2: BÜRDER 

4: BÜRDER 6 

1570 NEXT n: NEXT m 

1580 FOR n=1 TO 10+RND*30: LET a 

íINT í1+RND*20>,I NT (1+RND*20))= 

40: BEEP .01,25: BORDER 1: BORDE 

R 2: BORDER 3: BÜRDER 4: BÜRDER 

O: NEXT n: BORDER 5 

1590 LET a3=INT <1+RND*20): LET 

b3=INT (1+RND*20): LET a(a3,b3)= 

22: IF a(a3,b3)<22 THEN GO TO 1 

590 

1600 LET p=INT (1+RND*20): LET o 
=INT (1+RND*20>: LET pl=p: LET o 
1 =q: LET a(pl,ol)=30: IF a(p,o)< 
30 THEN GO TO. 1600 
1610 PRINT #1; FLASH l;"pLilsa un 
a tecla 11 : PAUSE O: CLS : RETURN 
1620 REM F'antalla laberinto 
1 IF ch=l THEN RETURN 
1640 LET bb=RND*7: LET cc=RND*7: 
PRINT INK 4; AT 11, 1 f." QUIERES 
VER EL MAPA? S/N "; FLASH 1;AT 1 
3,11;"500 Puntos" 

1650 IF INKEY$="s" THEN BORDER 

5: BEEP ,1,50: LET di=500: GO SU 

B 1950: GO TO 1680 

1660 IF INKEY*="n" THEN BORDER 

5: BEEP .2,-40: GO SUB 900: RETU 

RN 

1670 BORDER bb: BORDER cc: PAUSE 
1: GO TO 1650 
1680 GQ SUB 900 


1690 GÜ SUB 1870 

1700 FOR m=p;< TO py: FOR n=o:< TO 


□y 

1710 PRINT AT n,m+3; INK 6; BRIG 
HT 1;" " 

1720 IF a ( m, n > = 1 THEN PRINT IN 
K 3; BRIGHT 1;AT n. m+3¡ "T" 

1730 IF a Cm,n)=-3 THEN PRINT B 
RIGHT 1 iAT n,m+3; 

1740 IF a <m,n)=—5 THEN PRINT I 
NK 1; FLASH 1; BRIGHT 1;AT n,m+3 
; 11 R" 

1750 IF a(m,n)>l AND a(m,n)<B TH 
EN PRINT BRIGHT 1;AT n,m+3;"a“ 
1760 IF a (n>, n) =8 THEN PRINT BR 
IGHT 1; INK 4;AT r^m+Sí^X" 

1770 IF a <m,n> =40 THEN PRINT AT 

n, m+3j " 5" 

1780 NEXT n; NEXT m 

1790 PRINT BRIGHT I; FLASH 1;AT 

o, p + 3; "6“ 

1800 IF en=0 THEN PRINT . BRIGHT 
1; FLASH 1; AT b3,a3+3; 11 P" 

1810 FÜR n=1 TO 5: BEEP .1,33: N 
EXT n 

1820 LET t$=" /#*** 


Muchos puntos/ /oooo Objeto/ 

/ RRRF 1 Pista del enano/ / 

XXXX Ver mapa/ / TTTT Refresc 

o/ / :=■ 3 S-3 Grandes almacenes/ 

//PULSA UNA TECLA// " 

1830 FÜR n=1 TÜ LEN t$-16 
1840 IF I NKE Y $ < > 11 " THEN GO TO 1 
860 


1850 PAUSE 5: PRINT INK 9; PAPE 
R RND*7; BRIGHT 1;AT 21,12;t*<n 
TO n +16): NEXT n: GO TO 1830 


1360 GO SUB 900: 
URN 

GO 

SUB 8S0: RET 

1870 LET px=p-4: 
LET pj; = l 

IF 

p'í < = 1 THEN 

1880 LET py=p-t-4: 
LET py=20 

IF 

py>=20 THEN 

1890 LET o!-í=o-4: 
LET ox = l 

IF 

o:i< = l THEN 

1900 LET oy=o+4: 

LET.oy=20 

1910 RETURN 

IF 

oy>=20 THEN 

1920 LET d=d+dl: 

PRINT AT 21,7;d 


;" ": BEEP .O1,m 

1930 IF d>=ta THEN FOR n = l TO 6 
O STEP 10: BEEP .Ol.n: PRINT OV 






















ER 1; A T 21,0; "PUNTOS: 11 : NEXT n 
1940 RETURN 

1950 LET d=d-dl: PRINT AT 21,7;d 

■ H If 
P 

1960 IF d<=0 THEN GÜ TO 510 
1970 BEEP .001,57: RETURN 
1.980 LET ca = I NT <1+RND*LEN rí) ; 
POR n=7 TO O 3TEP -1: BEEP .01, a 
: PRINT FLASH 1;; PAPER n 
;AT al,bl; r$ (caí : NEXT n 
1990 LET w$=w$+r$(ca)¡ PRINT IN 
K 7; PAPER 1; AT O,O;w$: IF LEN w 
$>=10 THEN PRINT AT 0,0;w$: LET 
w$="" 

2000 FGR n=2 TO 18: PRINT AT n,l 
; " : 
NEXT n: G0 SUB 480 
2010 LET d1=125; GO SUB 1920: Gü 
SUB 570 

2020 IF d>=to THEN BEEP 1,30; G 
O SUB 2040 
2030 RETURN 

2040 IF en=0 THEN PRINT FLASH 
1;AT 21,13;"y el enano...?": BEE 
P 1,-20 

2050 IF ro<7 THEN PRINT FLASH 
1;AT 21,13; "y los 6 objetos?": B 
EEP 1,-20 

2060 IF en-O OR ro<7 THEN PRINT 
AT 21,13;" ": RE 

TURN 

2070 PRINT AT 1,3;"DESEAS VER LA 
S CLAVES?" 

2080 IF INKEY$="s" THEN GD SUB 
3700: GO TO 2110 

2090 IF INKEY$="n" THEN BEEP 2, 
-30: GO TO 2110 
2100 GQ TO 2080 





2110 LET a2=INT <1+RND*20>: LET 
b2=INT Í1+RND*20): LET a(a2,b2>= 
20 

2120 PRINT AT 1,3;" 

"; AT 20,0;" 

": PÜKH 23658,8: PRI 
NT FLASH 1;AT 0,0;w$; FLASH O;" 

DELETREA LA CLAVE ";AT 21,Os"DE 
LETE PARA BORRAR TODO 
2130 LET z $ = "": PRINT AT 19,3;"T 
IEMPQ: FQR n = l TO 300: N 

EXT n: FQR n*200 TD 1 STEP -1: B 
EEP .0001,60: PRINT AT 19,ll;n;" 

lt 

2140 IF INKEY$=CHR$ 13 OR INKEY$ 
=CHR$ 12 THEN PRINT AT 20,13;" 

LET z$=""; NEXT n: 

POKE 23658,0 

2150 IF INKEY$<>"" THEN LET z$= 

z$+INKEY$: BEEP 1,30 

2160 PRINT AT 20,13; BRIGHT 1; I 

NK O;z$: IF z$=r$ THEN POKE 236 

58,0: GO TO 2190 

2170 NEXT n: POKE 23658,0 

2ISO PRINT AT 21,0;" 

60 TO 2200 

2190 IF z$=r$ THEN PRINT AT 21, 
12; FLASH 1; BRIGHT 1; INK 1;"** 
CORRECTO **": GO SUB 2930: PRIN 
T AT 21,12;" ": RET 

URN 

2200 IF i$Or$ THEN LET to=to+d 
: LET nm=0: LET d1=500: GO SUB 1 
950: PRINT AT 21,13;r$;" ": 

FOR n=l TD 300: NEXT n: LET w$= 
"PRINT FLASH 1;AT 21,13;"NUÉ 
VA CLAVE ": GO SUB 3710: GO S 
UB 1530: PRINT AT 21,10;" 

GÜ SUB 750: GO SU 

B 480: RETURN 

2210 REM Coge objeto 

2220 IF a(p,o)>=9 AND aíp,o)<40 

THEN LET vb=l: GO SUB 1980: PRI 

NT AT al,b1;" ": LET a 1=0: LET b 

1=0: LET a(p,o>=INT <1+RND*6): I 

F a tp,o)=1 THEN POR n=l TO 19: 

BEEP ,01,40a PRINT OVER 1;AT 21 

,30; "T" : NEXT n: RETURN 

2230 IF vb=1 THEN LET vb=0: RET 

URN 

2240 IF a(p,o)=40 AND t=l THEN 
LET en=l 


51 
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BIENVENIDO A 


LABERINTO EN 
TRES DIMENSIONES 
GRAFICOS 
WIZARD 
RELOJ 
DEFENSA 

DIBUJOS ANIMADOS 
ATAQUE ESTELAR 
AGENDA TELEFONICA 
SKI 

PUZLE 

LA SERPIENTE 


r MAS DE 
150.000 PTAS. 
EN PREMIOS. 
BASES EN EL 
l INTERIOR 


PRIMERA REVISTA EN CASSETTE 


MAYO as 
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2250 IF a<p,o)=l THEN . GO SUB 23 
80: RETURN 

2260 IF p=a3 AND o=b3 THEN LET 
en=l: LET t = l: LET a3=0: LET b3= 
Oí GO TO 2360 

2270 PRINT AT al.bli “ Ü” : BEEP .0 
1,40+ps BEEP .01,40+os BEEP .01, 
50: PRINT AT al,bl;“ " 

2280 IF a <p, □> >1 AND a (p, o) 040 
THEN FOR n=al+l TO 18: PRINT B 
RIGHT 1 ; INK 4; PAPER 1AT n,bl- 
1;" SSS": .BEEP .001,n+20¡ PRINT A 
T n, bl-1; 11 NEXT n: GÜ SUB 1 

340 

2290 IF a(p,o)=40 THEN GO SUB 9 
20: GO TÜ 2340 

2300 FOR n=1 TO 6 : IF o*=p*<n) O 
R o$=^T THEN GO TO 2330 
2310 NEXT n 

2320 LET p$(ro)~o$¡ LET ro=ro+l: 

PRINT AT co, 30; o$: LET co=co+2 
2330 IF o$= " .J“ THEN LET a1=0: L 
ET bl= 0 : LET dl=ti*500i GO SUB 1 
920: LET a(p,o)=40í RETURN 
2340 LET a(p,o)=0 
2350 LET a 1=0: LET bl=0 
2360 LET d1=1000: GO SUB 1920 
2370 RETURN 
2380 FOR n=w TO w+40 
2390 IF n>=168 THEN BEEP .1,45: 
GO TO 2410 


2450 RESTQRE 2430: FOR n~~29 TO 
58: BORDER O: BORDER 4: BORDER 2 
: READ j: POKE USR "a"+n+29,j! B 
EEP .001,n: BEEP .01,n-2: BEEP . 
01,30-n: NEXT n 

2460 FOR n=0 TO 23: BORDER 7: BO 
RDER 4: BORDER 1: READ j: POKE U 
SR "o“+n,j: BEEP .01,n: BEEP .01 
,n-2s BEÉP .01,60-n: BEEP .01,30 
-n: NEXT n 

2470 BORDER 5: PAPER 6 : INK 1 : B 
RIGHT 1: CLS 

2480 FOR n=0 TÜ 15: PRINT AT n,0 
; PAPER 5;*' 

11 : NEXT h 

2490 PLOT INK 7;100,48: FOR n-1 
TO 11: DRAW INK 7;14,-3+RND*15 
,-2.5: NEXT n 

2500 FOR n=0 TÜ 47: PLOT INK 1; 
80,47: DRAW INK l;175,-n: NEXT 


n 


2510 FOR n=l1 TG 12: PRINT AT n, 
4; PAPER 4; INK 2; 11 | I B I H" : NEXT 
n: PRINT AT 10,5; INK 2; F'AFER 4 


; " K 11" 

2530 >0R n =12 TO 19: 
1, INK 2.; BRIGHT 0; 
BRIGHT 1; " 11111“: 

2530 FOR n=77 TO 100¡ 
2;77-n,n: DRAW INK : 


PRINT ñT 
PAPER 4;“ 
NEXT n 



: PLOT INK 
2; 30, O: NEXT 


n 


2540 FOR n=100 TO 77 STEP -1: PL 


2400 BEEP .0001,60: PLOT INK 8 ; 

PAPER 8;232,n: DRAW INK 8 ; PAP 
EP 8 ;2,O: LET w=w+l: NEXT n: BEE 
P .1,45 

2410 LET w=w-1: PRINT PAPER 4;A 
T al,bls" 11 : LET a 1=0: LET bl=0: 
RETURN 


OT INK 2;147—n,—n: DRAW INK 2; 
14,0: NEXT n 

2550 FOR n=13 TO 19: PRINT INK 
7; AT n, 5; " m " : NEXT n 
2560 PRINT AT 18,26; INK 1; PAPE 
R 5? "EEE" ; AT 17,31;^;sAT 13,30 
"E" ;AT 17,20: "EEEEE" 



2420 REM PLAYA 

2430 DATA 63,127,255,255,255,255 
,127,63,255,222,190,190,190,255, 
204,240,30,33,76,77,79,37,20,30, 

(-• c ■—i — cr a ncc - ncc —t Li" tr ne /i “iti' o ■■ 

U j 4 i. j , ¿Dtj i. i,J ,L_ j .¿..D 

5,255,218,37,255,255,255,255,64, 
10,38,8,73,56,125,4B,O,73,232,72 
,8,57,123,49,0,146,23,18,16,156, 
222,140,0,24,24,32,192,0,0,0,32, 
48,56,60,62,48,255,126 
2440 DATA 255,222,190,166,255,25 

4.252.240.56, 120, 184, 1.44, 126, 57, 

41.108.56, 120,5?’ 17, 126, 184, 168, 
108,O,96,96,16,16,224,O,O 


2570 FOR n=l TO 5: PLOT RND*245, 

120+RND*50:. DRAW 5,-5,-2+RND*2: 
DRAW 5,5,-2+RND#2: NEXT n 
2580 PRINT AT 19,12; “ CD" ;AT 20, 
10; “ T fiBQ U y F“ : PAUSE 100 
2590 LET es 1=0: LET es=0 
2600 RESTORE 2680: FOR n=3i TO 1 
O STEP - 1 : PRINT AT 20,20;“ P 
RINT OVER 1; INK B% PAPER 5;AT 
15, n 5 : READ j; PRINT AT 19,16 

5 " GGH“ i PRINT AT 20,21 ? “Q" : BEEP 
n/500, j+es: FRINT AT 20, 13| " KG M 
: PRINT AT 20,21;" PRINT AT 1 
9. 16: “ FHG" ; READ j: BEEP .05,j+e 





















s: PRINT AT 19,16; 11 HFG" i PRINT A 
T 20,20; ; PAPER 5; INK B; OVE 
R 1; AT 15. n; 11 -j" 

2610 PRINT AT 20, 14;^^: PRINT A 
T 20.15: 11 B"¡ 

2620 IF INKEY$="5 M THEN RUN 
2630 IF INKEY$s="n" THEN 60 SUB 
3780; 60 TO 3560 

2640 PRINT AT 20,20j" P"¡ BEEP .0 
01,60 

2650 NEXT ns LET ©sl=esl+lí IF e 
sl>-2 THEN LET es-6 
2660 IF esl«5 THEN LET es=-12: 
PRINT PAPER 1; INK ó; FLASH 1:* 

1;"OTRA PARTIDA? (S/N)“ 

2670 60 TO 2600 

2680 DATA 0,5,0,7,0,8,0,10,0,12, 
0,10,0,8,0,7,0,5,17,19,20,19,18, 
17,17,19,20,19,17,15,15,17,19,17 
, 15, 13, 13, 15, 17, 15, 13, 12, 13, 12 
2690 FOR n=l TO 13: PRINT AT n,2 
9; BRI6HT 1 f 4 INK 4;’’ H"i NEXT n 
2700 LET to~INT (10000+RND*20000 
> : PRINT BRI6HT 1; AT 20,0? "A 11 ; 
to?" puntos" 

2710 FOR n=17 TQ 21: PRINT AT n, 
29; BRI6HT 1; INK n-16?" MM": NE 
XT n 

2720 FOR n=64 TO 167: PLOT INK 
8; PAPER 8;232,n: DRAW INK 8; P 
APER 8;2, O: LET w=w+l: NEXT n; B 
ÉEP .01,40 

2730 PAUSE 200: RETURN 


2740 >FOR fl =*1.9 TO 20: PRINT AT n, 
0; BRIGHT 1¡ INK 4; 

IHHBÁHM" : NEXT 
27"50~FOR n = 12 Tü 18: PRINT fiT ( 1 , 
5; BP.I6HT l; INK 2; '' EEEEEEEEEgEE 
EE" : NEXT n: PRINT RT llT"; INK 

PRINT INK S 
;RT n,1j "EEEE" : NEXT n 


2770 POR n=83 Tü 119: PLOT INK 
2? 5+n-88,n: DRAW INK 2;150-2#n + 
176,0: NEXT n 

2780 PRINT AT 13,6; BRIGHT 1; F'A 

■ PER 1; INK 4; .I" ; AT 14,6; "| 

■"; AT 15,6;"^^' 

2790 PRINT AT 13,2; PAPER 1; INK 
4; ,, m ,, ;AT 14,2; I" ; AT 15, 2; "IkJI 
2800 FQR n=6 TO 9: PRINT AT n,14 
; INVERSE 1; INK Ss^VE^AT n,15; 


BRIGHT 1 : » EE" : NEXT n 
2810 PRINT BRIGHT 1; FAPER 5; I 
NK 4; AT 13,12; > T , I , M 1" i FQR n=14 T 
O 18: PRINT AT n,12; PAPER 5; BR 
I6HT 1; INK 4;"| 1" : NEXT n 

2820 FOR n=15 TO 18: PRINT AT n, 
1?; INVERSE 1; INK 2; BRIGHT 1;" 
EEE" : NEXT n 

2830 FOR n=0 TO 30: PLOT INK 2; 
152,78: DRAW INK 2;n,~22: NEXT' 
n 

2840 PRINT AT 16,19; PAPER 1; IN 
K 4; BRIGHT 1 i " ““l" ; AT 17, 19; 

2850 PRINT AT 2,2;"GUSANEZ HOUSE 
": PLOT 85,120: DRAW 0,20: PLOT 
85,135: DRAW ‘5,5: PLOT 85,135: D 
RAW “5,5 

2860 PRINT AT 5,3; “ .J M : PLOT 37,1 
20: DRAW 0,15: PLOT 37,131: DRAW 
-5,0: DRAW 17,0: DRAW -5,2: DRA 
W 0,-4: DRAW 5,2 
2870 IF nx = l THEN RETURN 
2880 FOR n=7 TO 47 STEP 8: FOR m 
-O Tü 25 STEP 2: PLOT INK ljUO 
+n+RND*20,128+RND*n: NEXT m: NEX 
T n 

2890 PRINT AT 0,0;" 

“: 60 SUB 880 

: RETURN 

2900 REM Gusanez menos 
2910 FOR m=l TO 10: FOR n=232 TO 
234: BEEP .001,60: PLOT OVER 1 
j INK 8; PAPER 8;n,64; DRAW OVE 
R 1; INK B; PAPER 8;O,103: NEXT 
n: NEXT m 
2920 GQ TO 3550 
2930 REM Coche 
2940 PRINT AT 0,0;" 

II 

2950 LET x 1=4: LET :¡2=23¡ LET x3 
=5: LET ::4= 15 

2960 60 SUB 480: RESTORE 2990: F 
OR n-0 TO 31: READ j: POKE USR " 
a-’+njj: NEXT n 

2970 FOR n=0 TO 31: READ j: POKE 
USR “-f "+n, j : NEXT n 
2980 FOR n=0 TO 7: READ j: POKE 
USR "p“+n,j; NEXT n: GO SUB 480 
2990 DATA 63,127,255,129,152,164 
,103,24,241,254,254,130,50,74,20 
4,48,252,59,255,112,112,52,212,1 
9,192,252,194,193,1,1,2,252 





















Vt 


reamas 


n: ’DRAW PAPER m; BRÍGHT l;55-<2 
* n) , O: DRfiW PAPER mj BRIGHT 1;0 
,127-<2*n)í DRAW PAPER mi BRIGH 


PAF’ER m; 


» * i » i * 




«-■ 


Hh mk 


3000 DATA 252,254,255,129,25,37, 
230,24,143,127,127,65,76,B2,51,1 
2,63,220,255,14,14,44,43,200,3,6 
3,67,131,128,128,64,63 


T 1;—55+(2*n),O: DRAW 
BRIGHT 1;0,-127+<2*n> 

3070 NEXT n: INK m+2: FOft n=68 T 
O 133 STEP 8: F’LDT 90+n,20+n: DR 
AW PAPER m+2;55-(2ün),O: DRAW 
PAPER m+2;O,127-(2*n )i DRAW FñP 
ER m+2$-35+<2*n>,O: DRAW PAPER 
m+2;O,-127+(Sin) 

3080 NEXT n: NEXT m: INK 2 
LET p= I NT Í1+RND*20) 

LET o=INT <1+RND*20) 

LET d1=100: GO SUB 1950: GÜ 
750: GD SUB 480: RETURN 
REN Movimiento enano 
IF en=i THEN RETURN 


3090 
3100 

3110 
SUB 
3120 
3130 


3010 

DATA 15,96, 

3, 110,0,250,0,0 

3140 LET nu=INI (RND*8) 

: LET wl 

3020 

LET ch=l 



INT (RND*2): LET q= 

: INT 

(RND#2) 

3030 

PRINT AT 21 

, 30$ FLASH 

1 ; "p" 

3150 IF nu=0 THEN 

LET 

a 5=a3+1: 

3040 

GO SUB 920: 

RETURN 


LET b3=b3+wl 



3050 

PRINT AT 1, 

5;"CAMBIO 

DE SI T 

3160 IF nu=1 THEN 

LET 

a3=a3-q: 

10" : 

FOR n=l TO 

19: GO SUB 

480: 

LET b3=b3—wl 



BORDE 

R RND*7: BE 

EP .01,50: 

NEXT 

3170 IF nu=2 THEN 

LET 

a3=a3+q; 

n: BORDER 2 



LET b3=b3—wl 



3060 

FOR m=5 TO 

0 STEP -2: 

LET d 

3180 IF nu=3 THEN 

LET 

a,3=a3-q s 

1 =500 

: GO SUB 19 

50: INK m: 

FOR n 

LET b3=b3+wl 



=60 TO 133 STEP 

8: PLOT 90+n,20+ 

3190 IF a3>*20 THEN 

LET a3=2 
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3200 IF a3-' -1 THEN LET e.3=20 
3210 IF b3<=l THEN LET b3=20 
3220 IF b3>=20 THEN LET b3-l 
3230 LET a U3, b3) =-5 
3240 RETURN 

3250 REM Di bajo kiosko 

3260 LET b=24; FOR n=19 TO 20: P 

RINT AT n, 0; BRIGHT 1; PAPER 4;" 

11 : 

NEXT n 


3270>PRINT AT 10,5; INK 5; "EEEEE 

EEEEEEEEEEEEE" ' - 

3280 FOR n=11 TO 18: PRINT INK 5 
;RT 0,5, BRIGHT 1¡"EEEE"; 6RIGHT 
0,‘EEEEEEEEEEEEEE": NEXT n 


3290 FÜR n=12 Tü 16: PRINT PAPE 


BRIGHT S 
NEXT n 

IGHT 1; PA 
PER 6; INK 5; " I" ; AT 7,18:*' 1" 

3340 PRINT INK 4; BRIGHT 1jAT 6 
,11;” MI" ¡I FLASH 1; BRIGHT 1; "REFR 
¿3CG8" 

3350 PLOT 87,1 IB: DRAW 82,0: DRA 
W 0,11: DRAW -82,0: DRAW 0,-11 
3360 PRINT AT 7,13; PAPER 6; INK 
5; " I” ; AT 7,19;" H" 

3370 RETURN 

3330 REM F’antalla objeto 
3390 IF a(p,o>=3 THEN RETURN 
3400 LET a1=INT <4+RND*14): LET 
bl-INT (2+RNDÍ25 > 


T n , 4 . BRIGHT 1;"| 


3330 PRINT AT 7,12: BR 


R 4;AT n, 11; " 

3300 PRINT PAPER 4; 


,11 


m _ || 


": NEXT n 
INK 2;AT 16 


3310 > PRINT INK 5:AT 
T 1; "1"; BRIGHT 0,"| 
3320 FOR n*3 TO 9: 


17, 11; 8RIGH 
[NK 4 ¡ A 


3410 FÜR n«18 TD al+1 STEP -1: P 
RINT INK 4; PAPER 1;AT n,b1; " 3" 
: NEXT n: PRINT AT ai+l,bi-ls GV 
ER 1; BRIGHT 1; INK 4; PAPER 1;" 

"3420 RETURN 


LLEGA EL 




El sistema compacto que reúne en una sola unidad los siguientes elementos: 

• Unidad de disco ultramoderna de 3,5" con 180 K. • Salida para monitor monocromo, 

• Interface paralelo Centronics. * Repetición del bus trasero del Spectrum. 

• Interface de joystick tipo Kerapston, ■ Alimentación interna de todo el sistema 

FACILMENTE AMPLIABLE A 360 Kybtes. 

PROGRAMAS DISPONIBLES O DE PROXIMA APARICION 

• Contabilidad PNC (500 cuentas/4000 asientos) • Facturación 

• Tratamiento de textos • Nóminas 

• Cambio de Moneda • Base de Datos 

• Control de stocks 

[podemos pasarle su programa favorito a disco 

DE VENTA EN LOS MEJORES ESTABLECIMIENTOS DE INFORMATICA 

Ji) 

Distribuido en España por: ISÜs»l SISTEMAS LOGICOS GIRON A, S.A. ■ Avda. San Narciso, 24 • 17005 GIRON A ■ Tei. (972) 23 71 00 


N.I.F. A 17/0810í¡8 



































3430 REM Pantalla especial 

3440 IF ch =1 THEN RETURN 

3450 FDR n =1 TO 19: PRINT AT n ,0 

; BRIGHT 1; INK 5; PAPER 3| W J M |A 

T ñ.28; "J" ; NEXT n 

3460 FOR n =0 TÜ 29: PRINT AT l,n 

; INK 5; PAPER 3; BRIGHT 1¡" u H i A 

T 19.n¡ " .J" : NEXT ri 

3470 60 SUB 570 

3480 GO SUB 990 

3490 PRINT INK 6 ¡ PAPER 1 ;AT 3, 
13j 11 IB6RANDE5" ; AT 4,12; "■ALMACENE 

S" 

3500 LET al=INT <5+RND*13): LET 
b 1 =INT (2+RND#25): FOR m~l TO 5: 

FDR n-0 TO 7: PRINT AT al,bl; I 
NK n;a$: BEEP .001>n+50: NEXT n: 
NEXT m 


3510 >FOR n*5 TO 18: PRINT PAPER 
5 > INK RND*7;AT n.l;“ ti ti H a " : 
paper " n a a n ci u H ti c? “ ne 

r\ I 


n 


3520 GO SUB 480 

3530 GQ SUB 480: LET en= 0 : GO SU 
B 920 

3540 RETURN 

3550 REM Final gusanez 
3560 LET n i i — 1: PAPER O: BGRDER O 
: INK 5: CLS ¡ GO SUB 2740 
3570 FOR n =1 TO 50: PLOT BRIGHT 
1} INK 7;RND*255,130+RND*4S: NE 
XT n: PLGT INK 7;220,120: DRAW 
INK 7; BRIGHT 1;10,-30,4.3: DRA 
W INK 7; BRIGHT 1;-10,30,-2.3 
3580 LET en=0: LET a=18s LET b=2 
6 : LET q$- " GF 11 ; LET hf= "IH " : G 
□ SUB 490 


3590 FOR n=26 TO 12 STER - 1 : Gü 
SUE 490: LET b=n: Gü SUB 490: PA 
USE 10: NEXT ns PAUSE 30: GO SUB 
490 

3600 PAUSE 50: PRINT INVERSE 1 ; 

PA PER 4 ; INK 7; BRIGHT 1; AT 13, 

6 ; "| ■" 5 AT 14, 6 ; *'| 1" 5 AT 15,6; 

II 

3610 BEEP .001,30: PAUSE 75 : PRI 
NT INVERSE 1; BRIGHT 1; PAPER 4 
; INK 7 ;AT 13,2; " r*l" ; AT 14,2:"i N 
"¡AT 15,2* "M' 

3620 BEEP .001,30: PAUSE i00: PR 
INT INK 4;AT 13,6;|";AT 14, 
6 ; " N (" ; AT 15,6; 


3630 BEEP .001,30: PAUSE 250: PR 
INT INK 4s AT 13,2; "■“TI" ; AT 14,2; 

" U r'jAT 15,2; "Ú": BEEP .001,30: 
PAUSE 250 

3640. FOR n~ 1 TO 7: PRINT INK n; 
AI 2¿,1;"S PARA JUGAR N para re 
setec": PAUSE" 5: NEXT n 
3650 FOR n=l TO 6 t BEEP .01,50 
3660 IF INKEY*="s" THEN LET no= 

O: RUN 


3670 IF INKEY$ 5 ="n" THEN RANDOMI 
ZE USR O 


3680 NEXT n: PAUSE 5 
3690 GO TO 3650 

3700 PRINT AT 8,2;"CLAVES:"s PAU 
SE 100: RESTQRE 3720: FOR n=l TO 
35: READ j*: FOR m=7 TO O STEP 
-1: PRINT INK m;AT 4,3;j*¡" 

": NEXT m: FOR m=0 TO 7: PRIN 
T INK m;AT 4, 3;j*j" N 

EXT m: BEEP .01,60: NEXT n: RETU 
RN 

3710 RESTORE 3720: LET no=INT <1 
+RND435): FOR n=l TO no: READ j* 
: NEXT h: LET r*=j$: RETURN 
3720 DATA " TECLADO " , '• ORDENADOR " , 
"PROGRAMA",“LISTADO","TELEVISION 
","CIRCUITO","BINARIO","DECIMAL" 
,"PANTALLA","PERSONAL","ALEATÜRI 
G","IMPRESORA","INTERFACE","BUS" 
, "MATRIZ", "BUCLE", "VARIABLE"PA 
NTALLA","SUBRUTINA","GUSANEZ","D 
ISCO", "MONITOR" , "RUTINA";, "DECISI 
□N","GRABACION","SON IDO","RESET" 
,"GRAFICO","ELECTRON","INTEGRADO 
","CURSOR","BORDE","INVÉRSO","BO 
RRAR","SINCLAIR" 


3730 PRINT "***### LAS VACACIONE 
S DE *#****#"’ J 


3740>FOR m »0 TO 1: FOR 
FOR n*7 TO 1 STEP -1; 
n; BÚROER Ó: PRINT AT 2 
SE w ; INK n; BRIGHT ni; " 


J5FLNEZ 


Ih =0 TO 1: 
BEEP .01, 
» 0, INUER 



NEXT M 


3750 NEXT w 


3760 PRINT ’ INK 1 ;"# GUSANEZ SE 
MUEVE CON Z,X,P y L"’; PRINT F 
LASH 1 ;" SE PARA CON OTRA TECLA 




















""i PRINT •'* COGE LOS 6 OBJETOS 
DIFERENTES" ? *: PRINT "* BUSCA A 
L ENANO Y CUIDADO CON LOS GRA 
NDES ALMACENES" ’ ' : PRINT 11 * CONV 
IERTE A GUS EN UN COCHE COGI 

ENDO LA ULTIMA FLOR Y...": PRINT 
;" ACERTANDO LA CLAVE SECRETA" 

T S 

3770 PRINT INK 4;"* BEBE REFRES 
COS POR EL CAMINO' 1 ’’! PRINT FLA 
SH 1¡“* TU META ES LLEGAR A LA F 
LAYA" 

3780 RESTORE 3790: FOR n=0 TO 16 
7: BORDER 2: BORDER 4: BORDER 1: 

: READ ji POKE USR "a"+n,j: NEXT 
n: RETURN 

3790 DATA 63,64,128,128,128,128, 
64, 63,241,2,66-, 78,78,50,4,248, 23 
,59,116,112,112,52,20.19,0,252,2 
, l,1,1,2,252,243,243,0,0,207, 207 
,0,0,252,2,1,1,1,1,2,252 

— 


3800 DATA 143,64,66,114,114,76,3 
2,31,56,220,46,14,14,44,40,200,0 
,63,64,128,128,128,64,63,153,90, 
60,195,195,60,90,153,129,195,129 
,129,129,255,231,231 
3810 DATA 60,66,255,231,223,211, 
231,255,192,192,128,188,254.195, 
195,126,0,255,255,129,171,213,17 

1.255.195.231.24.187.190.184.255 
,24 

3820 DATA 56,248,56,16,124,186,4 
O,40,221,221,0,119,119,119,0,221 
,170,85,170,85,170,85,170,35,255 
,63,255,17,255,68,255,17,7,8,16, 

120.88.88.48.120.126.129.173.255 
,195,231,195,255 

3830 SAVE "gasanez" LlNE 1: BEEP 
5,10: VERIFY "": BEER 1,10 
9999 SAVE "gusansi" LINE 1: BEEP 
5,10: VERIFY " ": BEEP 1,10 
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Las vacaciones son un buen 
momento para profundizar 
en el estudio de materias 
como el código máquina, que 
resultan difíciles de afrontar 
con el ajetreo de los estudios 
o el trabajo. 



Coincidiendo con el inicio de 
una serie de código máquina en 
nuestra revista, os queremos pre¬ 
sentar una herramienta muy útil a 
la hora de cargar o depurar los pro¬ 
gramas que se realizarán en este 
curso, 

Pablo Torrente nos ha enviado 
un trabajo bastante interesante: su 
programa permite listar en hexa- 
decimal los contenidos de la me¬ 
moria, cargar bytes en memoria, 
desensamblar programas, ejecutar¬ 
los de una vez o paso a paso. Tam¬ 


bién dispone de comandos para ac¬ 
tivar y desactivar la impresora. 

El programa trabaja en Spec- 
trum de 16 ó 48 K, si bien es in¬ 
compatible con el Interface I, ya 
que, al residir el código máquina el 
líneas REM, la relocalización que 
producen las variables del sistema 
extra del Interface impide un? 
ejecución correcta. 

El uso general de los coma aos 
es, para los que necesitan una di¬ 
rección, teclear ésta en hexadeci- 
mal y después la letra del coman¬ 


do. Para los restantes, basta intro- i 
ducir el comando para que surta 
efecto. El comando de carga en 
memoria utiliza los bytes que le si¬ 
guen en la línea de entrada. 

La introducción del programa 
no es un problema trivial, y con- 
v w ne seguir las instrucciones que 
os damos al pie de la letra. Para co¬ 
menzar, hay que teclear el progra¬ 
ma en BASIC (número uno), sin 
olvidarse de la línea L muy impor¬ 
tante. Después de finalizar la in¬ 
troducción, recomendamos salvar 


J 















a cassette el programa. Tecleando 
GO TO 9000. se ejecuta un pro¬ 
grama en código máquina que 
convierte la línea I en línea 0, dán¬ 
dole una longitud de 800 bytes. El 
programa carga allí el código má¬ 
quina del comando L (introducir 
código) y T (listar código). Esto 
permite utilizar esa parte del mo¬ 
nitor, que ya funciona, para intro¬ 
ducir, a partir de la localidad 
5CD2, los bytes en hexadecimal 
correspondientes al listado 2. 


Es importante no tratar de utili¬ 
zar otros comandos que L o T has¬ 
ta no haber finalizado la introduc¬ 
ción del código. El comando T es 
importante, va que permite verifi¬ 
car los bytes introducidos. Al aca¬ 
bar, basta salvar a cassette de nue¬ 
vo el programa. Dispondremos, si 
la introducción del código máqui¬ 
na ha sido correcta, de nuestro mo¬ 
nitor. 

El monitor, de reducido tamaño, 
no desensambla los mnemónicos 


Z80. pero cumple con la tarea de 
separar las instrucciones correcta¬ 
mente, distinguiendo las de un 
byte de las de dos o tres, etc. El co¬ 
mando de ejecución paso a paso 
resulta satisfactorio, y el programa 
entero puede servir como ayuda, a 
la vez que su estudio proporciona 
conocimientos interesantes de có¬ 
digo máquina. 


Autor: Pablo Torrente I6K 
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Desensamblado 
Dirección 0 


OOOO- 

p u 



OOO1 - 

AF 



0002- 

1 1 

FF 

FF 

0005- 

03 

08 

11 

0008- 

O A. 

rT 

5D 

50 

OOOB- 


5F 

5C 

OÜOE- 

18 

43 


0010“ 

03 

F2 

15 

0013- 

FF 



0014- 

FF 



0015- 

FF 



0016- 

FF 



0017- 

FF 



0018- 

2 A 

5D 

50 

001B- 

7E 



0010 

CD 

7D 

00 

001F- 

DO 



0020- 

CD 

74 

00 

0023- 

18 

F7 


0025— 

FF 

























1 REM * 

2 REM MONITOR CDDIBO MAQUINA 

3 REM P.TORRENTE 19B5 

4 REM instrucción04 

5 REM l)~Csda comando puede 
ir precedido íopcionálmente) por 
una dirección en he*adaci mal 

6 REM 2)-Comandos * 

7 REM L=eargar en memoria los 

bytes dados tras "L M 
M=desensambla en hew 
R-corre un programa 

8 REM S=desensambla y ejecuta 

paso a paso un progra 
ma en codigo maquina, 
mostrando reg,CPU 
<s«sig instr* 
SPACEavolver al menú) 

9 REM T^visuaii 2 ar memoria 

V^retorno a BASIC 
P1“impresora 
PO“pant*l1 a 

20 BURDER 1* PAPER 1: INK 7t C 
LEAR 

30 LET pc-0 

100 POKE 23650,B: FOKE 23617,25 
2: INPUT LIME c* 

200 1F c*-'” THEN G0 TO 100 
300 LET l*-e*(l>i LET c*-c*(2 T 
0 i 


400 

IF 

I*=" " 

THEN 

GO 

TO 

200 

500 

IF 

1*«"L H 

THEN 

GO 

TO 

1300 

600 

IF 


THEN 

GO 

TO 

2000 

650 

IF 

1 W'P M 

THEN 

GO 

TO 

2620 

700 

IF 

1*- H R" 

THEN 

GD 

TO 

2700 

900 

IF 

1+=*'$" 

THEN 

GO 

TO 

3000 

900 

IF 

1 *■ " T" 

THEN 

GO 

TO 

3400 

910 

IF 

1 s= "Y** 

THÉN 

STOP 



1000 LET e*»l*+c* 

1100 GO SUB 3600 
1105 LET pc-b 
U10 LET 1*«CMR* (codeí 
1200 GO TO 400 

1300 REM ******CARGA BYTES****** 

1400 IF £*=*"" THEN GO TO 100 
1600 GO SUB 3600 
1700 F'OKE pe | h 
1000 LET pc-pc+1 


3520 LET pc-pe+B 
3530 NEKT I 
3540 GO TO 200 

3600 REM *****HEX-DEC********* 

3700 IF c*=‘ l THEN RETURN 
3800 LET 1*~c* íl> s LET c*=C*í2 T 
O ) 

3900 IF 1 S-" " THEN GO TO 3700 

4000 LET h*0 

4100 LET code-CÜDE 1* 

4200 IF code<49 OR code>70 THEN 

RETURN 

4300 IF code>57 AND eode<43 THEN 
RETURN 

4400 LET h«l6*h+íeode-4B-7*<code 

>64) > 

4500 IF THEN RETURN 

4700 LET l$-ctU)( LET e*=c*í2 T 

0 )¡ GO TO 4100 

6000 SAVE ■monitor” LINE 1 

6789 RANDOMIZE 67B9 

6790 FOR 1=23755 TO PEEK 23627+2 
56*PEEK 23628 STEP 4 

6795 IF PEEK <1-1)«13 AND PEEK I 
=F'EEK 23671 AND PEEK i 1+1) «PEEK 
23670 THEN RANDOMIZE ti POKE 23 
627,PEEK 23670: POKE 2362B,PEEK 
23671: PRINT 5 FLASH 1’ 

" Pulsa una tecla para seguir 
11 ¡ PAUSE Os GO TO 20 
6799 LET 1=1+PEEk í1+2)+25¿*PEEK 
(1+3): NEXT 1 

9000 REM ***CARGADDR INICIAL»** 

9001 CLS 

9002 PRINT * 

Espera unos segundos basta que 

aparezca el cursor 1 ' 

9003 PRINT * 

Para cargar los bytes del lis¬ 
tado hexadecimai adjunto,teclea 
5CD2 L seguido de los primeros 
bytes. Para cargar sucesivos 
bytes basta teclear L antes de 
cada bloque. Se pueden verificar 
los bytes mediante el comando T" 

9004 PRINT * 

Cuando termines de cargar los 
bytes puedes grabar el programa 
medíante GOTO 6000, ya que las 
lineas 6789-9918 habrán desapa” 


1900 GO TO 1400 

2000 REM ******** MONITOR ****** 

2100 POR L-l TD 20 

2200 POKE 23809,pe-256*1NT (pe/2 

5ó)i POKE 23810,INI ípc/236) 

2300 RANDOMIZE USR 24275 
2400 LET pc=pc+PEEK 23013 
2500 NEXT L 
2600 60 TO 200 

2620 REM t***IMPRES*/PANTALLA*** 
2630 GO SUB 3600 
2640 POKE 24527,H+2¡ POKE 24276 
, H+2 

2650 GO TO 200 

2700 REM *********#RUN********** 
2800 RANDOMI2£ USR pe 
2900 GO TO 200 

3000 REM ******* * *ST£F* t ******** 

3100 POKE 23809,pc-256*INT (pe/2 
56): POKE 23810,INT ípc/256> 

3200 RANDOMIZE USR 23762 

3210 LET pe■256#PEEK 23810+FEEK 

23809 

3300 GO TO 200 

3400 REM ******PRINT BYTES****** 
3410 POR 1=1 TD 20 
3500 POKE 23809,pc-256*INI (pc/2 
56 )t POKE 23810,INT ípc/236) 

3510 RANDOMIZE USR 24526 


recido y el codigo maquina se 
almacena en la linea 0" 

9010 RESTORE 9800 
9010 FOR i=0 TO 9 
9020 READ bí POKE 40960+1 f b 
9022 NEXT i 

9030 RANDOMIZE USR 40960 

9032 POKE 23756,0* POKE 23757,35 

9034 POKE 23758,3: POKE 23760,13 

9036 POKE 23761,128 

9040 FOR i-O TO 59 

9045 READ b: POKE 24501+i,b 

9050 NEXT i 

9060 GO TQ 6789 

9B00 DATA 33,209,92,1,32,3,205,8 
5,22,201 

9900 DATA 87,31,31,31,31,205,194 
9902 DATA 95,122,205,194,95,201, 
230 

9904 DATA 15, 198, 4B, 254,5B, 56,2 
9906 DATA 198,7,215,201 
9910 DATA 62,2,205,1,22,62,13 
9912 DATA 215,42,1,93,124,205,18 
1 

9914 DATA 95,125*205,181,95,62,4 
5 

9916 DATA 215,6,8,62,32,215,126 
9910 DATA 205,181,95,35,16,246,2 

01 


5CD2- 21 

16 

00 

39 

F9 

3E 

FD 

OB 

5CDA- FE 

CB 

4F 

20 

06 

18 

57 

FB 

5CE2- CD 

F0 

SC 

3£ 

7F 

DB 

FE 

CB 

5CEA- 47 

20 

EA 

21 

03 

13 

F5 

ED 

5CF2- 73 

3D 

SC 

C3 

76 

IB 

1 1 

00 

5CFA- FO 

13 

7B 

B2 

20 

FB 

C9 

FA 

5D02- 5D 

00 

00 

01 

00 

00 

00 

00 

5D0A- 00 

00 

00 

00 

00 

00 

3A 

5C 

5D12- A3 

00 

00 

00 

00 

00 

00 

3E 

50 i A- 00 

00 

3A 

5C 

58 

FF 

41 

46 

5022- 42 

43 

44 

45 

48 

4C 

49 

58 

5D2A- 49 

59 

53 

50 

00 

00 

00 

OO 

5032- C3 

CA 

50 

C3 

00 

5D 

CD 

03 

5D3A- 5E 

21 

2E 

5D 

lí 

AD 

50 

01 

5042- OA 

00 

ED 

BO 

2A 

01 

5D 

3A 

5D4A- 05 

5D 

4F 

7E 

FE 

CO 

CA 

19 

5052- SE 

FE 

C9 

CA 

F7 

50 

FE 

E9 

5D5A- CA 

14 

SE 

FE 

C3 

CA 

20 

5E 

5062- FE 

DD 

28 

04 

FE 

FD 

20 

1 1 

5D6A- 23 

5F 

7E 

FE 

E9 

20 

07 

BB 

5072- DA 

OB 

5E 

C3 

02 

SE 

2B 

IB 

SD7A- IF 

E6 

F7 

FE 

10 

28 

20 

E6 

5082- E7 

FE 

20 

28 

1A 

E6 

C? 

FE 

5DBA- C7 

28 

SE 

€6 

06 

FE 

06 

28 

5D92- 07 

7E 

E6 

C1 

FE 

CO 

28 

ID 

5D9A- ti 

AD 

50 

ED 

BO 

18 

09 

11 

5DA2- AD 

50 

7E 

ED 

AO 

EB 

36 

05 

5DAA- CD 

63 

SE 

00 

00 

00 

00 

C3 

5DB2- CA 

5D 

C3 

DO 

50 

7E 

Eé 

FB 

5DBA- F6 

02 

32 

C5 

5D 

ED 

5B 

12 

5DC2- 5D 

05 

F1 

DA 

OE 

50 

18 

33 

5OCA- CD 

98 

SE 

23 

FD 

5D 

CD 

90 

5002- SE 

2A 

01 

50 

23 

7E 

CD 

Al 

5DDA- 5F 

C3 

FA 

5D 

7E 

Eé 

06 

CB 

5DE2- 2F 

28 

12 

FE 

02 

2B 

30 

18 

5DEA- 35 

AE 

F5 

CD 

9E 

5F 

F1 

ES 

5DF2- 6F 

AF 

67 

IB 

32 

El 

IB 

2F 

5DFA- 22 

01 

50 

CD 

9E 

5F 

18 

27 

5E02- CD 

63 

5É 

DO 

22 

01 

50 

18 

5E0A- 21 

CD 

63 

5F 

FD 

22 

01 

SD 

5É12- 10 

18 

co 

63 

SE 

ie 

10 

01 

5E1A- 03 

00 

CD 

9E 

5F 

es 

2A 

01 

5E22- 50 

OB 

09 

56 

2B 

SE 

EB 

22 

5E2A- 01 

5D 

1E 

07 

ED 

73 

1E 

SD 

5E32— 3E 

OD 

D7 

DD 

21 

12 

5D 

21 

5E3A- 20 

5D 

3E 

20 

D7 

06 

02 

7E 

5E42- 07 

23 

10 

FB 

3E 

3D 

D7 

DD 

5E4A- 7E 

01 

CD 

85 

5F 

DD 

7E 

00 

5E52- CD 

B3 

SF 

DD 

23 

DD 

23 

10 

5E5A- C2 

3C 

SE 

3E 

OD 

07 

C3 

Ei 

5É62- SC 

2A 

12 

5D 

E5 

El 

08 

2A 

5E6A- 06 

50 

ES 

F 1 

08 

ED 

4B 

14 

5^72- 3D 

ED 

3B 

16 

50 

2A 

18 

SD 

5E7A- DD 

2A 

1A 

5D 

FD 

2A 

1C 

5D 

5EB2- D9 

ED 

4B 

08 

50 

ED 

5B 

OA 

5E3A- 5D 

2A 

OC 

5D 

DD 

2A 

OE 

50 

5E92- FD 

2A 

10 

5D 

09 

C9 

ED 

43 

5É9A- 14 

50 

F5 

C1 

ED 

43 

12 

50 

5EA2- ED 

53 

16 

50 

22 

IB 

50 

DD 

SEAA- 22 

1A 

50 

FO 

22 

ÍC 

5D 

09 

5EB2- 08 

ED 

43 

08 

SO 

F5 

Cl 

ED 

5EBA” 43 

06 

50 

ED 

53 

OA 

5D 

22 

5FC2- ÚQ 

SO 

OD 

22 

OE 

3D 

FD 

22 

5ECA- 10 

5D 

09 

08 

C9 

00 

00 

00 

5ED2- 3E 

3E 

03 

CD 

01 

16 

3e 

OD 

SEDA- 07 

06 

02 

21 

01 

5D 

23 

7E 

5EE2- CD 

B5 

5F 

28 

10 

F9 

3E 

2D 

5EEA- D7 

01 

04 

00 

11 

CF 

5E 

2A 

3EF2- 01 

5D 

ED 

BO 

3A 

CF 

5E 

21 

5EFA- 4F 

5F 

OE 

03 

ED 

B1 

28 

20 

5F02- 1E 

03 

OE 

1C 

ED 

Bl 

28 

08 

5F0A- ID 

OE 

1A 

ED 

Bl 

28 

OI 

ID 











5F12™ 06 

03 

CD 

AF 

5F 

43 

21 

CF 

5F1A- 5£ 

7E 

CD 

B5 

5F 

23 

3E 

20 

5F22- D7 

10 

F6 

06 

09 

CD 

AF 

5F 

SP2A- 7B 

32 

05 

5D 

C9 

3 A 

DO 

5E 

5F32- 21 

ee 

5F 

1E 

04 

m 

OB 

ED 

5F3A- B1 

2B 

D5 

ID 

ID 

OE 

OB 

ED 

5F42- Bt 

28 

CD 

3A 

CF 

5E 

FE 

ED 


5FS2- DE 

E6 

ED 

EE 

F6 

FE 

21 

22 

5FSA- 2A 

36 

43 

4B 

53 


73 

7B 

5F92- CB 

09 

19 

23 

29 

2B 

39 

El 

5F9A- E3 

E5 

E9 

F? 

3 A 

05 

5D 

2A 

5FA2- 01 

5D 

FE 

80 

38 

01 

^5 

65 

5FAA- 6F 

-30 

01 

24 

C9 

3b 

20 

D7 

5CB2.- 10 

FB 

C9 







5F4A- 28 


1C 

18 

C-3 

DD 

FD 

FD 

5F52- 01 

1 1 

21 

22 

2A 

31 

32 

3A 

5F5A- C2 

C3 

C4 

CA 

CC 

CD 

D2 

04 

5F62- DA 

DC 

DD 

£2 

E4 

EA 

£C 

F2 

: 5F6A- F4 

FA 

FC 

FD 

06 

OE 

10 

16 

5F72- IB 

1E 

20 

26 

28 

2E 

30 

36 

5F7A- 30 

3E 

C6 

CB 

CE 

D3 

D6 

DB 


■ 


L 


00010 


ORG «5CD2 

00560 


LD A , (HL) 

00020 


* 

00570 


CP «CD 

00030 

ENT 


005S0 


JP Z,CflLLS 

0004-0 


LD HL j «0016 

00590 


cp «ce 

00050 


ADD HL , SP 

00600 


JP Z , RET5 

00060 


LD 5P , HL 

00610 


CP «ES 

00070 

MON 

LD P.ttFD 

00620 


JP Z,JPHLS 

00030 


IN R,(«FE) 

00630 


CP ÜC3 

00090 


BIT l,fl 

00640 


JP Z X JUMP 

00100 


JR NZ i NSTEP 

00650 


CP «DD 

00110 


ÜR STEP 

00660 


JR Z , JP1 

00120 

NEUIN 

El 

00570 


CP «FD 

00130 


CALL PSE 

00630 


JR NZ,NXT 

0014-0 

NSTEP 

LD A,«7P 

00590 

JP1 

INC HL 

00150 


IN A, i«FE) 

00700 


LD E , A 

00160 


BIT 0 , A 

00710 


LD R . íHL) 

00170 


JR NZ , MON 

00720 


CP 8E9 

00160 


ld hl,«1303 

00730 


JR NZ , JP2 

0019Q 


PU5H HL 

00740 


CP E 

00200 


LD Ett5C3D) ,SP 

00750 


JP C t UPIY3 

00210 


JP «1676 

00760 


JP JPIXS 

00220 

PSE 

LD DE,«F000 

00770 

JP2 

DEC HL 

00230 

P51 

INC DE 

007S0 


JR NO 

0024-0 


LD fl . E 

00790 

NXT 

AND «F7 

00250 


OR D 

00300 


CP «10 

00260 


JR NZ,PS1 

00310 


JR Z , JRS 

00270 


RET 

00320 


AND «E7 

00230 

PC 

DEFU «7066 

00330 


CP «20 

00290 

RTN 

DEFU 00 

00340 


JR Z , JRS 

00300 

LON 

DEFB 0 

00350 


AND «C7 

00310 

RF2 

DEFU 00 

00360 


CP SC7 

00320 

BC2 

DEFU 00 

00370 


JR Z . RSTS 

00330 

DE2 

DEFU 00 

00630 


AND «06 

0034-0 

HL2 

DEFU 00 

00390 


CP «06 

00350 

1X2 

DEFU 00 

00900 


JR Z , NO 

00360 

IY2 

DEFU «503A 

00910 


LD fi . (HL) 

00370 

AFi 

DEFU 00 

00920 


AND «01 

00330 

BC1 

DEFU 00 

00930 


CP «C0 

00390 

DE 1 

DEFU 00 

00340 


JR Z , COND 

004-00 

HL1 

DEFU 00 

00950 

NO 

LD DE , XQAR 

004-10 

IX1 

DEFU 00 

00960 


LDIR 

004.20 

IV1 

DEFU «5C3A 

00970 


JR XQINS 

004-30 

SPT 

DEFU 00 

00330 

JRS 

LD DE . XQAR 

004-40 

LBLS 

DEFM /ñFB CDEHL IX IY S P/ 

00990 


LD A . ( HL i 

00450 

IBL0 

DEFU 0,0 

01000 


LDI 

004t30 


JP NJPRL 

01010 


EX DE . HL 

00470 


JP JPREL 

01020 


LD (HL) ,5 

00430 

STEP 

CALL IN5T 

01030 

XQINS 

CALL LREG 

00490 


LD HL . IBLQ 

01040 

XQAR 

DEFU 0 , O , 0 , 0 , 0 

00500 


LD DE.XQAR 

01050 

CONO 

LD A . (HL) 

00510 


LD BC .i «000A 

01060 


AND «F3 

00520 


LDIR 

01070 


OR «02 

00530 


LD HL , (PC) 

01030 


LD ÍJHPCJ .A 

00540 


LD fi, ÍLONJ 

01090 


LD DE , (AF1) 

00550 


LD C ,fl 

01100 


PU3H DE 






















Vi 


reycuvuis 




01110 

01120 JfÍPC 
01130 FhLS 
0114.0 NUPRL 
01150 

01160 JPREL 
01170 
01180 
01190 
01200 
01210 


POP RF 

JP TRUE;t ÜP XX TRUE 
JR INCP'3 — 

CRLL 5RES 
JP INCP3 
CRLL sreg 
LD HL, (PC) 

INC HL 
LD fl . (HL) 

CRLL RDPC3 
JP INCP2 


01220 TRUE LD H.(HL) 


01230 

0124-0 

01250 

01250 

01270 

01280 

01590 R5T5 


RND 6 
5RR R 
JR Z..RETS 
CP 2 

JR Z.CRLLS 
JR XJUMP 
XOR (HL) 


01300 


PUSH fir 

01310 


CRLL R0PC2 

01320 


POP RF 

01330 


PUSH HL 

0134.0 


LD L , R 

01350 


XOR ñ 

01360 


LD H.fl 

01370 


JR JUMPS 

01330 

RETS 

POP HL 

01390 


JR JUMPS 

014-00 

INOPE 

LD (PC).HL 

014-10 

INCP3 

CRLL RDPC2 

014-20 


JR JUMPS 

014-30 

JPIX5 

CRLL LREG 

014-4-0 


LD (PC) , IX 

014-50 


JR JPEND 

014-60 

ÜPIYS 

CRLL LREG 

014-70 


LD (PC) , IV 

014-80 


JR JPEND 

014-90 

JPHLS 

CRLL LREG 

01500 


JR JUMPS 

01510 

CPLL5 

LD SC,0003 

01520 


CRLL RDPC2 

31530 


PUSH HL 

0154-0 

XJUMP 

LD HL,(PC) 

01550 


DEC SC 

01560 


RDD HL.SC 

01570 


LD D {HL J 

01580 


DEC HL 

01530 


LD E. (HL) 

0160-0 


EX DE,HL 

01610 

JUMPS 

LD ÍPC) ,HL 

01620 

JPEND 

LD E , 7 

01630 


LD í SFT) Si 

0164-0 


LD R,30D 

01650 


RST 310 

01660 


LD IX,RF1 

01570 


LD HL..L5LS 

01680 

DSP1 

LD R,320 

01630 


RST 310 

01700 


LD 6 ,2 

01710 

D5F2 

LD Pi , í HL ) 

01720 


RST 310 

01730 


INC HL 

0174-0 


DJNZ DSF2 

l 

w -b a w w 


LD fl = " = 


01780 


RST 310 

01770 


LD R.(IX + 13 

01780 


CRLL PRINT 

31790 


LD R . (IX+0 3 

S1300 


CRLL PRINT 

01810 


INC IX 

01320- 


INC IX 

01330 


DEC E 

01343 


JP MZ ,DSP1 

01850 

D5END 

LD H,8D 

01860 


R3T 310 

31370 


JP neuin 

01380 

LREG 

LD HL.iRFlí 

01893 


PUSH HL 

01900 


PDF RF 

O1910 


EX RF , RF ■' 

01920 


LD HL, ÍRF2 í 

01930 


PUSH HL 

01943 


POP RF 

01950 


EX RF RF ' 

31960 


LD BC.ÍBC13 

01970 


LD DE,(DE13 

01980 


LD HL, ÍHL13 

01990 


LD IX.ÍIXl) 

02S00 


LD IV,íXV13 

02010 


EXX 

02020 


LD SC,ÍBC2) 

02030 


LD DE,(DE23 

02040 


LD HL , £HL2 3 

02350 


LD IX,£1X2) 

02360 

* 

LD IV,£IV2) 

02370 


EXX 

02080 


RET 

02093 

SREG 

LD ÍBC1S,BC 

02100 


PUSH RF 

02110 


POP BC 

02120- 


LD ÍRF13,BC 

02130 


LD (DEi),DE 

02140 


LD ÍHLxJ HL 

02150 


LD (1X13 ,IX 

02180 


LD (IYÍ3-IY 

02170 


EXX 

02180 


EX RF .RF' 

02130 


ld teca),se 

02200 


PUSH RF 

02210 


POP BC 

02220 


LD (RF23 , BC 

32230 


LD ÍDE23 ,DE 

02243 


LD (HL23 ,HL 

02250 


LD (1X23 -IX 

32260 


LD (IV23,1Y 

02273 


EXX 

02230 


EX RF,RF 

02290 


RET 

02300 



0-2310 

FCO DE- 

DEFE 3 

32320 

5 CODE 

DE FE 0 

02333 


DE FU 3 

32340 

IN5T 

LD R , 2 

02350 


CRLL 81601 

32350 


LD R,S0D 

02373 


RST 310 

02360 


LD E . 2 

32390 


LD HL. PC 

82400 


INC HL 

02410 

LOOP 

LD R. íHLi 











024-28 

024-38 

024-4-8 

024-50 

024-68 

024-78 

024-60 

024-98 

0250O 

02518 

02528 

02530 

0254-0 

02558 

02568 

02578 

02538 

02598 

02688 

02618 

02628 

02638 

0264-0 

02650 

02660 

02678 

02638 

02698 

02708 

02718 

02728 

02738 

0274-8 

02758 

82768 

82778 

827S0 

02790 

82300 

02310 

82320 

02330 

0284-0 

82358 

02660 

02670 

023S8 

02320 

02980 

82918 

82920 

02930 

0294.0 

02950 

82960 

02970 

02960 

02990 

03000 

83010 

03020 

03S30 

0304.0 

03058 


CFLL PRINT 
DEC HL 
DÜNZ LOOP 
LD H . "- 
R5T ¿10 
LD BC , 4 
LD DE,FCÜDE 
LD HL'. i PC i 
LDIR 

LD H ¡ íFCÜDE) 

LD HL.CQDE3 
LD C , 3 
CP IR 

ÜR Z,CH£CK 
L0ÜP2 LD E , 3 

LD e.aic 
CP IR 
ÜR I, F4 
DEC E 
LD C.ttlF 
CP IR 
ÜR Z ¡ P4 
■ DEC É 

P4- LD B ,3 

CFLL prspc 
LD S . E 
LD ML,FCÜDE 
LOOP3 LD h, íHL) 

CFLL PRINT 
INC HL 
LD F,«20 
RST tt IB 
DÜNZ L0ÜP3 
LD 5,9 
CFLL PRSPC 
LD F . E 
LD fLÜN),H 
RET 

CHECK LD H. i SCODE) 

LD HL.CODE4. 

LD E . 4. 

LD C , 1Í8B 
CP IR 
ÜR Z.P4 
DEC E 
DEC E 
LD C,tt5 
CP IR 
ÜR Z , P4 
LD F , •(FCÜDE) 

CP SED 
ÜR Z . P4- 
INC E 
üR P4 

CÜDE3 DEFS «DD , SED , ÜFD 
CQDE3 DEFB «81.«11.«21.#22 
DEFB «2fl,tt31. » 32. «3fi. ÍÍC2 
DEFB K C 3,SC 4,«CF,ttC C .ttCE¬ 
DERE ttD2 . ttD4- 

DEF5 ttDF , ttDC . ttDD . ttE2 , ttE4- 
DEFE ttEF .ttEC , ttF2 . ttF4. . ttFF 
DEFE «FC.ttFD 
CODEE DEFB S.«E.«10,ttlS 


03060 

03078 

8306 8 

33890 

33100 

03110 

63120 

03133 

3314-3 

03150 

03160 

03173 

03160 

83190 

83208 

03213 

03228 

03230 

0324-0 

0325S 

03268 

03278 

03263 

03238 

03300 

03318 

0 3 38 

03330 

03340 

03358 

83360 

03370- 

03330 

03390 

03400 


DEFE SIS Í «I£,«20.«26,tt2S 
DEFB íé'E , «30 , «36 «36 tt3E 
DEFE SC6 ,, ttCB , ttCE , ttD3 , SD6 
DEFE ttDB,ttDE,ttE5,ttED,ttEE 
DEFE ttFS,ttFE 

CÜDE4 DEFB tt£i,tt22,#2fi,»36 
DEFB «43,«4B ,, «53 . «5B 
DEFE «73,tt7B,SCB 
C0D2F DEFB 9.«19.«23,«29 
DEFB B2B,C39,«E1,SE3,«ES 
DEFE tt£9,«FS 

FDPC2 LD F.'ÍLON) 

FDPC3 LD HL. (PC) 

CP «30 
ÜR C,PCFD4 
DEC H 

PCFD4 FDD F,L 
LD L . F 
ÜR NC.RT2 
INC H' 

RT2 RET 

PRSPC LD F.«28 
RST «10 
DÜNZ PRSPC 
RET 

PRINT LD D.F 
RRF 
RRF 
RRF 
RRF 

CFLL Fi 


03410 


LD Ñ , D 

03420 


CFLL P1 

03430 


RET 

03440 

P1 

AND «0F 

03458 


FDD ft,«38 

03463 


CP S3F 

0347G 


JR C.P2 

03460 


FDD F.«87 

03490 

P2 

RST «18 

03500 


RET 

03510 



83520 

TFB 

LD ’ H,2 

03538 


CFLL «1681 

03540 


LD F,«D 

03550 


RST «10 

03568 


LD HL.(PC) 

03578 


LD F , H 

035S8 


CFLL PRINT 

03590 

* 

LD h,L 

53508 


CFLL PRINT 

03610 


L D H , ’ 1 — 

03528 


RST «18 

33630 


LD B,S 

03640 

T* -t 

LD H i «ü0 

33653 


RST «18 

33568 


LD F. (HLí 

33578 


CFLL PRINT 

33SS0 


INC HL 

33698 


DÜNZ TI 

33703 


RET 
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Intercambio programas del 
Spectrum de 16 y 48K. Enrique 
Geni lio Blázquez. Aragón, 6- 
4."B. 45005 Toledo. Telefono: 
22 61 96. 


Ten* 1 J, Si - rort^ clí) 


Cambiaríamos programas e 
información con gente de toda 
España. Escribir al Apartado de 
Correos 35071 (08080) o telefo¬ 
near al (93) 241 99 48. 


Su anuncio puede ir aquí. Escribanos a 
«El corcho». TODOSPECTRUM. 
Bravo Murillo, 377.5.» A. 28020 
^ ■ Madrid. 



m No me quedó clara la forma de 
utilizar las variables de tres ele¬ 
mentos como publicaron Uds. en 
i el número 3 de TODOSPEC¬ 
TRUM en el programa «Software 
para ordenar el software». ¿Qué 
significa cada uno de los elementos 
en la expresión DIN a$ (10,10,57) 
¿Qué características técnicas tiene 
la impresora Epson FX-80? ¿Y el 
lápiz de luz de Dk’tronics? ¿Qué 
precio tienen? 

Eduardo Martínez 
Cartagena 

0 

Con la sentencia a que te refieres 
DIMensionamos una tabla com¬ 
puesta por 100 variables (10*10) de 
una longitud de 57 caracteres cada 
una. De esta forma quedarán a$ 
(1,1), a$ (1.2)... a$ (1,10), a$ (2,1)... 
hasta a$ (10,10). Añadiendo un 
tercer parámetro podremos frac¬ 
cionar la cadena de ¡a forma habi¬ 
tual. Por ejemplo, si queremos im¬ 
primir los 7 primeros caracteres de 
el primer elemento de la tabla de¬ 
beremos hacer PR1NT a$ (1,1, TO 
I 7 ). 

En cuanto a las características 
de la impresora Epson FX-80 son 
las siguientes: 


Representante en España: 
Tradetec, Epson Center. Pro¬ 
venza, 89-91.08029 Barcelona. 
Tel,: (93)322 03 54. 

Características estándar: Ve¬ 
locidad: 160 CPS. Máx. carac¬ 
teres/linea: 137. Ancho máx. de 
papel: 10”. 

Interfaces: Paralelo: Centro¬ 
nics. Opcional: Serie RS 232C. 

Características particulares: 
Rollo de papel, Bujfer de 2 KB 
extensible a 32 KB, impresión 
enfatizada, cursiva. Precio: 
155.000 ptas. 


En cuando al lápiz óptico 
Dk’tronicks en este mismo núme¬ 
ro le dedicamos, como ya habrás 
visto, un artículo completo en el 
que podrás informarte exhaustiva¬ 
mente. 


0 Poseo una impresora Admate- 
100 y me han avisado que no hace 
COPY a pesar del interface Cen¬ 
tronics. ¿Se podría conseguir por 
software! ¿De qué manera? 

Antonio García 
Alicante 


0 

Sí es posible conseguir COPY en 
la impresora a que hace alusión, 
para ello puedes utilizar el progra¬ 
ma Basic adjunto (programa 1); 
esta rutina puedes incluirla en tus 
programas mediante MERGE, y 
acceder a ella con GO SUB 900Ó. 
Debe funcionarte a la perfección, 
aunque, como quizá te resulte algo 
lenta, puedes recurrir al código 
máquina. Si te decides a ello el 
otro programa que te ofrecemos 
(programa 2) es una rutina en as- 
sembler que puede solucionar el 
problema, pero, dependiendo del 
tipo de interface que tengas, es po¬ 
sible que tengas que realizar algu¬ 
na modificación. Por si no tienes 
ensamblador incluimos también 
un programa Basic que se encar¬ 
gará de cargar el código máquina. 
Una vez ejecutado, y si no ha habi¬ 
do problemas en la suma de con¬ 
trol, deberás salvarlo en cinta con 
SA VE «copy» CODE 65205, 100. 
Para volver a cargarlo deberás ha¬ 
cer LOAD «copy» CODE. 



















8995 

8996 

8997 

8999 

9000 
CHR* 
9010 
9020 
CHR* 
9025 
9030 
INT 
INT 
GINT 
QINT 
9040 
9050 
9060 


REM pragrafnal 

REM subrut1 na CORY 

* 

LPRINT CHR* 27 ;CHR$ 27;"A H s 
27 ;CHR$ 8; 

FOR y=l 75 TO 7 STEF* -8 
LPRINT GHR$ 27;CHRí 27;"K"; 
27;CHRí 0;CHR* 27;CHR* 1; 
FOR x=0 TO 255 
LPRINT CHR$ 27;CHR$ <128*P0 
(>: „ y) +Ó4*P0INT (a t y-i) +32*PO 
<x,y-2>+ló*P0INT <x f y-3)+8*P 
<x t y~4)+4*P0INT (x,y-5>+2*P 
(x ,y-6) +POINT (x ¿ y-7)); 

NEXT x.í LPRINT 
NEXT y 
RETURN 


programa 2 


120 


LD HL ,4000H 


5 

6 

7 i subrutina COPY 

8 


10 

ORS 

65205 

20 

LD 

A, 27 

30 

RST 

16 

40 

LD 

A, 27 

SO 

RST 

16 

60 

LD 

A, "A" 

70 

RST 

16 

80 

LD 

A, 27 

90 

RST 

16 

i 00 

LD 

A, 8 

110 

RST 

16 


130 NULI 

LD 

A,H 

140 

CP 

58H 

150 

RET 

Z 

160 

LD 

A, 13 

170 

RST 

16 

180 

LD 

A, 27 

190 

RST 

16 

200 

LD 

A, 27 

210 

RST 

16 

220 

LD 

A, "K 

230 

RST 

16 

240 

LD 

A,27 

250 

RST 

16 

260 

LD 

A, 0 


270 


RST 

16 

280 


LD 

A, 27 

290 


RST 

16 

300 


LD 

A, 1 

310 


RST 

16 

320 

NOLI 

LD 

B, 8 

330 

NUCA 

PUSH 

BC 

340 


LD 

B,8 

350 


LD 

DE,TABLA 

360 

NUBY 

RLC 

(HL) 

370 


EX 

DE, HL 

330 


RL 

(HL) 

390 


INC 

HL . 

400 


EX 

DE, HL 

410 


DJNZ 

NUBY 

420 


INC 

H 

430 


PDF 

BC 

440 


DJNZ 

NUCA 

450 


EX 

DE, HL 

460 


LD 

B, 8 

470 


LD 

HL,TABLA 

480 

IMPR 

LD 

A, 27 

490 


RST 

16 

500 


LD 

A,(HL) 

510 


RST 

16 

520 


INC 

HL 

530 


DJNZ 

IMPR 

540 


EX 

DE, HL 

550 


LD 

C,L 

560 


INC 

L 

570 


JR 

Z,NULI 

580 


LD 

A, H 

590 


SUB 

e 

600 


LD 

H,A 

610 


LD 

A, C 

620 


AND 

1FH 

630 


CP 

1FH 

640 


JR 

NZ,NOLI 

650 


JR 

NULI 

660 

TABLA 

DEFS 

8 


Y en el próximo número... 







































A úÁJflAÁs'&jJjQd 


10 

REM 

cargador programa 2 

20 

LET c 

«0 

30 

FÜR n 

=0 TD 99 

40 

READ 

& 

SO 

PGKE 

65205+n,a 

60 

LET c 

—e +a 

70 

NEXT 

n 

80 

PRINT 

FLASH 1S " ERROR EN D 

ATA " 

[ AND 

c<>10804 

90 

DATA 

¿o r>~7 oír ¿ri o”7 rii ^ 

^ A. / H jL J. 1.J¡| Ui. ¡1 i./ n ¿ 1 W 

100 

DATA 

jLO ¿c¡ O 1 cr LO D~T OIR 

O ¡i DiJ | ¿.lüji i. / ^ ¿ Jr Ü 

1 10 

DATA 

62,8,215*33,0,64 

120 

DATA 

124,254,88 , 200,62,13 

130 

DATA 

215,62,27,215,62,27 

140 

DATA 

215,62,75,215,62,27 

150 

DATA 

215,62,0,215,62,27 

160 

DATA 

215,62,1,215,6,8 

170 

DATA 

197,6,8,17,24,255 

180 

DATA 

203,ó,235,203,22,35 

190 

DATA 

235,16,247,36,193,16 

200 

DATA 

237,235,6,8,33,24 

210 

DATA 

255,62,27,215,126,215 

220 

DATA 

35,16,248,235,77,44 

230 

DATA 

40,188,124,214,8,103 

240 

DATA 

121,230,31,254,31,32 

250 

DATA 

205,24,175,243 


Como podrán observar quienes 
tengan algún conocimiento del sis¬ 
tema operativo del Spectrum, el 
programa en código máquina a ti¬ 
lica el RST 16 (1QH) para impri¬ 
mir un byte. El programa supone 
que previamente se ha selecciona¬ 
do como canal de salida el canal de 
impresora (canal 3) y que la rutina 
a la que apunta este canal necesita 
un ESC (27) antes de cada código 
de control. Para utilizar el progra¬ 
ma, este dehe ir precedido de una 
llamada a la rutina de selección 
con un 3 en el acumulador: 

LDAJ 

CALL 16011! 

El programa está preparado asi¬ 
mismo para un Inter ¡ace de impre¬ 
sora tipo Kempston i modelo ¡). 


Este Interface requería un código 
ESC antes de cada carácter de 
control que debiera ir a la impre¬ 
sora. Para utilizar el programa con, 
por ejemplo, el Interface ¡, basta 
abrir el canal 3 a «B», incluir al 
principio las dos líneas que hemos 
indicado anteriormente, y eliminar 

EDA,27 

RST 16 

una vez cada vez que ocurra dos 
veces seguidas en el programa. 
También se puede «pokear» con 
NOP. 

El programa se puede relocali¬ 
zar a cualquier posición de memo¬ 
ria, ya que la única dirección abso¬ 
luta es TABLA. Por ello, basta 
asignar hueco para una tabla de 8 
bytes. 
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DEUS EX MAGMA 

Un nuevo concepto de juego por ordenador 
llega de la mano de Investrónica. 

Deus ex Machina. 


¡EL AUDIO-VIDEO! 

Ha nacido el audio-video por ordenador. 

SPECTRUM. EL MAXIMUN EN SOFTWARE 


Una historia de Ciencia-Ficción creada por 
Andrew Stagg, con música de Mel Croucher 

Siéntate ante tu televisor... sincroniza la 
banda sonora y sumérgete en un 
espectáculo total. 
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